كيفية تسمية القيم النقطية في المؤامرة؟

Question

كيف يمكنني إضافة قيم البكسل إلى المؤامرة؟يمكنني الحصول على القيم باستخدام click() ولكن أريد أن تظهر في المؤامرة.

library(raster)
r <- raster(nrow=3, ncol=3)
r[] <- 1:ncell(r)
plot(r)
click(r) 

Answer 1

جرب ما يلي، وهو يستند إلى قطع تم ترقيته معا من الوظيفة التي تم إرجاعها بواسطة getMethod("click", signature="Raster").

giveacodicetagpre.

Answer 2

إذا كنت تريد إظهار كافة القيم، يمكنك استخدام text طريقة:

library(raster)
r <- raster(nrow=3, ncol=3, vals=1:9)
plot(r)
text(r)

بالنسبة لمجموعة فرعية، يمكنك القيام بشيء مثل:

z <- rasterToPoints(r, function(x) x > 6 )
plot(r)
text(z[,1], z[,2], z[,3])

Answer 3

أعلم أن هذا السؤال قد تم وضع علامة عليه بالفعل كإجابة، ولكن بناءً على حل Josh وسؤال المتابعة الخاص بـ Eddie، إليك حلقة صغيرة تفعل ما كان Eddie يطلبه (رسم القيم النقطية بدون أرقام عشرية وبدون استخدام click):

r <- raster(nrow=3, ncol=3)
r[] <- runif(ncell(r))

plot(r)

for(i in 1:ncell(r)){
 xycoords <- xyFromCell(r, cell = i)
 value <- extract(r, xycoords)
 text(xycoords, labels = round(value))
}