将文本和行添加到图形中的`image（）`

Question

我在二维数据中生成了一个图像 - x。

graphics::image(ifelse(drop(x)!=0, x, NA))

我想在图片中添加文字和一行。

我尝试text(10, 10, "testing")和segments(5, 10, 20, 25)，但文本和行都没有显示。

Answer 1

正如@MrFlick所提到的，image()将值重新调整为0-1范围。

见下面的例子：

#dummy data
set.seed(123)
x <- matrix(runif(100),nrow=10)

#plot
image(x)

#add text and a line
text(0.1,0.1,"text")
segments(0.5,0.1,0.2,0.25)