r - R deldir 和自定义名称而不是数字

Question

我正在尝试使用 R 生成 voronoi 图。图表本身的绘制工作正常，但是在标记绘图的不同图块时遇到了问题。

我正在使用的代码如下：

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'))

在绘制图表之前是否可以将数字交换为自定义标签？

Answer 1

您可以使用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) )