将文本标签添加到栅格图

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)