거리를 기반으로 psp 객체에 점을 그려야합니다.

Question

거리 시퀀스가 ​​있는데, spatstat에 선을 그립니다. 예 :이 작업을 수행하는 방법을

사람이 알겠습니까 :

library(spatstat) 

x <- c(0.3, 5) 
y <- c(3, 1.2) 

range.x <- c(0, max(x)+0.2) 
range.y <- c(0, max(y)+0.2) 

owin <- owin(range.x, range.y) 
the.line <- psp(x0 = x[1],x1 = x[2],y0 = y[1],y1 = y[2], window = owin) 

plot(the.line)  

seqs <- data.frame(name = seq(1,7), distance = c(0.12, 0.3, 0.45, 0.5, 0.7, 0.89, 0.95)) 
lengths <- seqs$distance*lengths.psp(the.line) 

나는 (라벨 일러스트와 함께 추가)는 다음과 같은 방법으로 레이블로 seqs$name를 사용 the.line 위에 lengths 음모 싶습니다 ? 도와 주시면 대단히 감사하겠습니다!

Answer 1

text 기능을 사용하면 기존 플롯에 텍스트를 추가 할 수 있습니다. 텍스트를 회전 할 수 있는지 여부는 사용중인 그래픽 장치에 따라 다르며, 'crt'및 'srt'에 대해서는 ?par 섹션을 참조하십시오. 또한 줄을 어둡게하는 대신 줄 위의 텍스트를 얻는 방법에 대해서는 text의 'adj'인수를 참조하십시오.

이 모두는 기본 그래픽에서 플로팅이 수행되고 있다고 가정합니다.

다음 위의 코드를 실행 한 후 (기본 윈도우 그래픽 장치를 사용하여) 창에 나를 위해 일한 :

x.new <- seqs$distance*x[2] + (1-seqs$distance)*x[1] 
y.new <- seqs$distance*y[2] + (1-seqs$distance)*y[1] 

tmp.x <- grconvertX(x, to='inches') 
tmp.y <- grconvertY(y, to='inches') 
theta <- atan2(diff(tmp.y),diff(tmp.x))*180/pi 

text(x.new, y.new, seqs$name, adj=c(0,0), srt=theta)