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

水深无声 2021-12-19 01:21 1381阅读 0赞

## 不同的数据放到同一张图展示 ##

**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做回归曲线

图形叠加后效果如下：  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70]

## 不同的图叠加拼凑在一起展示 ##

用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)  # 将第一个图和第二个图形合并

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 1]

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70]: /images/20211219/88a3e7116371472eb2c6fc8859a2e475.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 1]: /images/20211219/26196e7dd3f146129d967ae84d6b7ec2.png