r - 向光栅图添加文本标签

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)