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

本文介绍如何在R语言中使用par(new=TRUE)命令实现图形叠加,包括散点图和回归曲线的叠加,以及如何使用grid.newpage()函数选择性地进行图形叠加,实现不同图形的拼接展示。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

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

par(new=TRUE) # 每叠加一次新图形,运行一次该程序命令,即可实现在原图上继续叠加数据绘图

https://blog.youkuaiyun.com/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)  # 将第一个图和第二个图形合并

在这里插入图片描述

评论 6
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值