R语言组合绘图和多个图形叠加、图片叠加绘图

唐伯虎

　　
不同的数据放到同一张图展示
　　par(new=TRUE) # 每叠加一次新图形，运行一次该程序命令，即可实现在原图上继续叠加数据绘图
　　https://blog.csdn.net/tandelin/article/details/94362055

plot(x1,x2,xlab="维度",ylab="物种多样性数量");  #做散点图
lines(lowess(x1,x2),col=2);  #利用lowess做回归曲线
par(new=TRUE)  # 是否叠加新图形，没叠加一次运行一次该命令
plot(x3,x4,yaxt="n",xaxt="n",xlab="维度",ylab="物种多样性数量");  #做散点图
lines(lowess(x1,x2),col=2,lty=4);  #利用lowess做回归曲线

　　图形叠加后效果如下：


不同的图叠加拼凑在一起展示
　　用grid.newpage()函数命令选择是否进行图形叠加，该命令有先后顺序，先运行。

library(grid)
library(ggplot2)
gg <- ggplot(mpg, aes(displ, hwy, colour = class)) +  geom_point()
library(png)
logo <- readPNG("C:\\Users\\TD\\Desktop\\test.png")
grid.newpage()
print(gg)  # 绘制第一个图
vp <- viewport(x = 0.6, y = 0.3, width = 0.2, height = 0.2)
grid.raster(logo, vp = vp)  # 将第一个图和第二个图形合并