R 대신 deldir과 사용자 정의 이름을 사용합니다.

Question

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

그것이 가능 다이어그램을 플롯하기 전에 사용자 지정 라벨 번호를 교환?

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