래스터 벽돌의 공간 점 검색

Question

래스터에서 일부 점을 추출하여 플롯하려고합니다. coordinates(pt) <- c("X1","X2")

은 플로팅에 영향을 미치는 그 오류를주고있다 :

library(sp) 
pt1 <- data.frame(cbind(4110000,40000))####almost completely degraded 
pt2 <- data.frame(cbind(4100000,0))#####green 
pt3 <- data.frame(cbind(4140000,55000))####slightly green 
pt <- rbind(pt1, pt2, pt3) 
coordinates(pt) <- c("X1","X2") 

points(pt) 

그러나, 라인 : 나는 다음과 같은 한

오류 coordinates<- (*tmp*, 값 = C를 ("X1에서 ","X2 ")) : 좌표가 이미 설정된 공간 객체에서 좌표를 설정할 수 없습니다 .....

모든 조언 pl 용이함?

Answer 1

코드가 올바르게 작동합니다. 두 번이 행을 실행할 때 오류는 발생합니다

coordinates(pt) <- c("X1","X2") 

이 r

plot(r) 
points(pt)