0

R でボロノイ図を作成しようとしています。図自体のプロットは正常に機能していますが、プロットのさまざまなタイルのラベル付けに問題があります。

私が使用しているコードは次のとおりです。

data <- read.csv("data.csv", sep=",")
x <- data$column1
y <- data$column2
voro <- deldir(x,y,rw=c(0,1,0,1))
list <- tile.list(voro)
color <- heat.colors(6)
plot(list,polycol=color,close=TRUE)
plot(voro,number=TRUE,add=TRUE,wlines=c('tess'))

ダイアグラムをプロットする前にカスタム ラベルの番号を交換することは可能ですか?

4

1 に答える 1

0

を使用textしてラベルを追加できます (座標は既にわかっていますx) y

library(deldir)
# Sample data
x    <- c(2.3,3.0,7.0,1.0,3.0,8.0)
y    <- c(2.3,3.0,2.0,5.0,8.0,9.0)
voro <- deldir(x,y,list(ndx=2,ndy=2),c(0,10,0,10))

# Plot
plot( tile.list(voro), polycol = heat.colors(6), close=TRUE )
plot( voro, add = TRUE, wlines = 'tess' )
text( x, y, labels = LETTERS[1:length(x)], adj = c(0,0) )
于 2013-09-02T13:55:19.430 に答える