r - 将文本添加到使用 r 中的函数创建的绘图中

Question

我使用函数创建了一个包含两个图的图形，即

data1<-1:3

basic<-function(data1){
par(mfrow=c(2,1))
plot(data1)
plot(data1)
}

basic(data1)

现在我想将文本添加到图中，而不必将其包含在函数中。但我只能在底部绘图中添加文本(见下文)。

text(x=c(1.5,1.6,1.7),y=c(2,2.1,2.2), labels=c("X","Y","Z"))

如何将文本添加到函数外部的顶部图中？ (我有很多使用相同功能创建的图形，但需要在每个图形上略有不同的位置放置略有不同的文本标签)。感谢您的任何建议。

Answer 1

为此，您可以使用函数 split.screen而不是 par(mfrow=...)或 layout .

split.screen(c(2,1)) # Two rows of plots, one column.

然后，您可以使用函数 screen 从一个“屏幕”切换到另一个“屏幕”。 .见 ?split.screen想要查询更多的信息。

在你的例子中，给出了以下内容:

basic <- function(data1){
    split.screen(c(2,1))
    screen(1)
    plot(data1)
    screen(2)
    plot(data1)
    }

basic(data1)
screen(1, new=FALSE)
text(x=c(1.5,1.6,1.7),y=c(2,2.1,2.2), labels=c("X","Y","Z"))