R语言怎么把小图添加到大图里

今天在文献上看到这样一张图片。

图上的大图和小图是同一张图片,都是生存曲线,只不过小图的y轴起始点不一样

今天来绘制这张图片或者说怎么把小图添加到大图里。

1. 安装和加载R包

首先绘制生存曲线需要survival和survminer包。

install.packages("survival")  # 安装包
install.packages("survminer"# 安装包
library(survival) # 加载包
library(survminer) # 加载包

2. 绘制简单生存曲线

使用colon数据集进行演示。

data(colon) # 加载内置数据集
fit <- survfit(Surv(time,status) ~ sex,  
               data = colon) # 拟合生存曲线
ggsurvplot(fit, data = colon) # 绘制大图

再画个y轴起始点不一样的,通过调整ylim参数来限制y轴起点。

ggsurvplot(fit, data = colon,
           ylim = c(0.41)) # 绘制小图

如上所示,生存曲线的大图和小图我都绘制出来了,然后可以导出图片,通过PS或AI或PPT将这两张图片进行合并。

下面演示怎么使用PPT合并,PS和AI就不演示了。

先导出PPT格式图片,导出PPT格式需要用到eoffice包。

install.packages("eoffice"# 安装包
library(eoffice) # 加载包
# 导出大图
ggsurvplot(fit, data = colon) # 绘制图形
topptx(filename = "C:/Rdata/datu.pptx", 
       width = 8 height = 7  # 设置宽度和高度

小图可以设置导出的宽度和高度稍小点。

# 导出小图
ggsurvplot(fit, data = colon, ylim = c(0.41))
topptx(filename = "C:/Rdata/xiaotu.pptx", 
       width = 4 height = 3  # 设置宽度和高度

经过上面操作后,可以导出两个PPT文件,打开两个PPT文件,将小图复制到大图PPT里面。

上图小图复制过去后小图背景是白色的,会遮盖后面的大图,这时可以设置为无填充色,操作见下图。

PPT里面的图形元素都是可调整的,需要添加什么元素或者去掉哪些元素都可以自行调整,具体操作看各自图形要求。

统计与绘图

回归分析样本量如何确定?

2020-10-23 16:45:27

研究进展

CBE单碱基编辑器的Cas9非依赖型DNA脱靶风险评估及优化

2020-2-11 14:34:09

加入Q群
0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索