将文本和行添加到图形中的`image()`

Question

我用二维数据在R中生成了一个图像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)