在栅格图中添加文本标签

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函数似乎只适用于栅格格式的文本对象。请指教如何在栅格图上添加离散点。

- geotheory

Answer 1

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

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

- mdsumner