ラスタブリックの空間点を取得する

Question

ラスタ上のいくつかの点を抽出してプロットしようとしています。 私は次のようでした：

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(pt) <- c("X1","X2")

は、プロットに影響を及ぼしていること、エラーを与えている：coordinates<-（*tmp*、値= cで（「X1で

エラー"、" X2 "））： 既に設定されている空間オブジェクトに座標を設定することはできません。

アドバイスpl簡単ですか？

Answer 1

コードは正常に動作します。あなたは二回この行を実行すると、エラーにのみ発生：

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

ラスタr

plot(r) 
points(pt)