パッケージ「ggvoronoi」をインストールします | install.packages("ggvoronoi") # これは最初に1回だけ必要な操作です |
ロードします | library(ggvoronoi) # 起動するたびに必要 |
| |
x,yの座標のリストを データフレームにする | myakaridd <- data.frame(original[,c(1,2)]) names(myakaridd) <- c("x", "y") myakaridd <- rbind(myakaridd, c(0,0), c(0,-256), c(256,0), c(256,-256)) # 4隅の点を追加 |
ボロノイ図を描く | 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") # プロットされた図を右クリックしてコピーや保存をします |