添加文本标签光栅情节

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

您可以使用图形::文本为正常，但它预计的x，y作为第一个参数，就像points等诸多xy.coords功能：

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