x,yの座標のリストを読み込む | myakaridd=read.table("clipboard",h=0) names(myakaridd) <- c("x", "y") |
| |
パッケージ「ggvoronoi」をインストールします | install.packages("ggvoronoi") # これは最初に1回だけ必要な操作です |
ボロノイ図を描く | library(ggvoronoi) ggplot(myakaridd,aes(myakaridd$x, myakaridd$y)) + stat_voronoi(geom="path") + geom_point() + geom_rect(aes(xmin=0, xmax=256, ymin=-256, ymax=0), fill=NA, color="red") # プロットされた図を右クリックしてコピーや保存をします |