R 在行/网格中打印未使用ggplot创建的多个打印
我创建了两个图,p1和p10,并记录如下:R 在行/网格中打印未使用ggplot创建的多个打印,r,ggplot2,plot,R,Ggplot2,Plot,我创建了两个图,p1和p10,并记录如下: plot(data$Fwd_EY, data$SPNom1YrFwdRet, pch = 16, cex = 1.0, col = "blue") p1 <- recordPlot() dev.off() plot(data$Fwd_EY, data$SPNom10YrFwdRet, pch = 16, cex = 1.0, col = "blue") p10 <- recordPlot() dev
plot(data$Fwd_EY, data$SPNom1YrFwdRet, pch = 16, cex = 1.0, col = "blue")
p1 <- recordPlot()
dev.off()
plot(data$Fwd_EY, data$SPNom10YrFwdRet, pch = 16, cex = 1.0, col = "blue")
p10 <- recordPlot()
dev.off()
plot(数据$Fwd_EY,数据$SPNom1YrFwdRet,pch=16,cex=1.0,col=“蓝色”)
p1试图抢先OP对我上面第二条评论的回应
这里有一个解决方案,它从原始数据开始,在散点图上叠加一个最佳拟合线性回归
d <- tibble(
X=runif(40, 0, 100),
Y=-5 + 0.3 * X + rnorm(40)
)
d %>% ggplot(aes(x=X, y=Y)) +
geom_point() +
stat_smooth(method = "lm")
d%ggplot(aes(x=x,y=y))+
几何点()+
统计平滑(方法=“lm”)
诀窍是将绘图放入列表中
myPlots = list(p1, p10)
ggpubr::ggarrange(plotlist = myPlots, nrow = 1)
警告消息:
1:处理base-R绘图需要包gridGraphics
。替换空绘图。
2:处理base-R绘图需要包gridGraphics
。替换空地块
数据
plot(1:10, pch = 16, cex = 1.0, col = "blue")
p1 <- recordPlot()
dev.off()
plot(10:1, pch = 16, cex = 1.0, col = "red")
p10 <- recordPlot()
dev.off()
绘图(1:10,pch=16,cex=1.0,col=“蓝色”)
p1确实有帮助吗?确实有,谢谢你的指针,但是将记录的绘图写到.png文件中,然后读回并光栅化它们似乎是浪费。肯定有更简单的方法!另一方面,我正在记录这些图,因为我用最佳拟合线覆盖了散点图,并且很难保存整个图像。所以,虽然我绝对不想成为忘恩负义者(你的解决方案确实解决了我的问题),但我似乎正朝着一个兔子洞走去,至少从表面上看,这是一个相当简单的问题!你是说你在工作流程中更早地创建PNG,而不是让外部来源提供它们?那么我很有信心有一种方法可以从原始数据中获得您想要的输出。您能为reprex提供源数据、所需输出和相关代码吗?绘图(数据$Fwd_EY,数据$SPNom1YrFwdRet,pch=16,cex=1.0,col=“blue”)下一次预测返回,只需编辑您的问题即可谢谢-这使用了ggplot,这迫使我重写一些代码。我试图偷懒,但似乎在重新编写创建绘图的代码时多做一点工作会使它们的组合更加容易
library(gridGraphics)
#Loading required package: grid
myPlots = list(p1, p10)
ggpubr::ggarrange(plotlist = myPlots, nrow = 1)
plot(1:10, pch = 16, cex = 1.0, col = "blue")
p1 <- recordPlot()
dev.off()
plot(10:1, pch = 16, cex = 1.0, col = "red")
p10 <- recordPlot()
dev.off()