本文主要是介绍[转] R 绘图ggplot2 一页多图及子图嵌入主图的多种实现方法，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
原文：https://mp.weixin.qq.com/s/tHbasjxsKbbnaIn7nP2D4g
一、一面多图的实现方法：
- 输入：
minute <- c(110,118,120,123,131,137,144,149,152,160)
VC <- c(5283,5299,5358,5292,5602,6014,5830,6102,6075,6411)
lrdata <- data.frame(minute,VC)
modelle <- lm(VC~minute,data=lrdata)
pre <- predict(modelle,newdata=data.frame(minute),interval = "prediction")
newlr <- cbind(lrdata,pre)p1<-ggplot(newlr,aes(x=minute,y=VC))+geom_point(size=3,colour="blue")p2<-ggplot(newlr,aes(x=minute,y=VC))+geom_point(size=3,colour="blue")+
geom_segment(aes(x=minute, xend=minute, y=VC, yend=fit),size=1,linetype=2,colour="red")+
geom_line(aes(y=fit), color = "blue", linetype = "dashed",size=1)
方法1：
- 输入：
library(gridExtra)
grid.arrange(p1,p2,nrow=1)
- 结果：
方法2：
- 输入：
library(Rmisc)
multiplot(p1,p2,cols=2)
- 结果：
方法3：
- 输入：
install.packages("cowplot")
library(cowplot)
plot_grid(p1, NULL, NULL,p2, labels = c("A", "", "", "B"),ncol = 2)
- 结果：
二、子图嵌入主图的实现方法：
方法1：
- 输入：
library(grid)
vp <- viewport(width = 0.3, height = 0.4, x = 0.65,y = 0.9,just=c("left","top"))
# width\height表示插入图形的大小，x\y表示插入图形相对于图片底层just的位置
print(p1)
print(p2,vp=vp)
- 结果：
方法2：
- 输入：
install.packages("viridis")
library(viridis)
ggdraw() +draw_plot(p1,0,0,1,1)+
draw_plot(p2,0.1,0.5,0.3,0.4)
# 0.1\0.5为图的左下角x\y的位置，0.3\0.4为图形的宽度和高度
- 结果：
这篇关于[转] R 绘图ggplot2 一页多图及子图嵌入主图的多种实现方法的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
