向栅格图中添加文本标签

Question

剧本：

library(raster)
places = data.frame(x=c(0.2, 0.7), y=c(0.2, 0.7), name=c('A','B'), stringsAsFactors=F)
plot(raster(volcano))
points(places$x, places$y, pch=16)
text(places$name, places$x, places$y-0.1)

最后一行失败并显示消息：In xy.coords(x, y, recycle = TRUE) : NAs introduced by coercion。我认为这是由于混合图形库造成的，但text光栅中的函数似乎仅适用于光栅格式的文本对象。感谢您提供有关如何在栅格图上添加离散点的建议。

Answer 1

您可以像平常一样使用graphics::text，但它需要 x, y 作为第一个参数，就像points许多其他xy.coords函数一样：

text(x = places$x, y = places$y-0.1, labels = places$name)