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

概述我使用一个函数创建一个包含两个图的图 data1<-1:3basic<-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), label 我使用一个函数创建一个包含两个图的图

data1<-1:3basic<-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"))

如何在函数外部的顶部图中添加文本？ (我有很多使用相同功能创建的图形,但需要在每个图像上略微不同的位置放置稍微不同的文本标签).谢谢你的建议.

解决方法 您可以概述不同文本的内容,例如：

data1<-1:3text1 <- data.frame(x=c(1.5,"Z"))text2 <- data.frame(x=c(2,2.9,1.0),"Z"))

然后把它们放在你的功能中

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

正如@AndrIE所说调用plot意味着任何进一步的text()调用仅适用于最后一个情节

总结

以上是内存溢出为你收集整理的将文本添加到使用r中的函数创建的图中全部内容，希望文章能够帮你解决将文本添加到使用r中的函数创建的图中所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。