如何解决使用 ggarrange 创建的部分常见图例的 ggsave 剪辑
我试图通过使用 lapply 然后用 ggarrange 排列结果列表来从我的数据生成多个图。当我尝试使用 ggsave 保存最终图形时,部分图例文本在 png 中被截断。
首先我定义我想要绘制的内容以及绘图标题和颜色
main.overview <- list(
c("AA","AA","black"),c("X5.HETE","5-HETE","red"),)
然后我定义了一个函数来生成绘图。
plot.overview = function(data,mediator) {
analyte <- mediator[[1]]
name <- mediator[[2]]
color <- mediator[[3]]
ggplot(data = data,aes_string(x="Compound",y=analyte)) +
geom_boxplot(aes(fill=Compound)) +
labs(title=name) +
scale_fill_brewer(palette="Reds") +
theme_classic() +
theme(plot.title = element_text(hjust = 0.5,color = color),axis.title.x = element_blank(),axis.title.y = element_blank())}
最后我调用函数并将图排列成一个图形
myplots <- lapply(main.overview,plot.overview,data=lm)
arrange <- ggarrange(plotlist = myplots,common.legend = TRUE,nrow=1,legend = "right")
figure <- annotate_figure(arrange,left = text_grob(expression(10^6~cells),rot=90))
ggsave("overview.png",dpi="print",device="png",plot=figure,height=10,width=30,units="cm")
然而,在最终的 png 中,我放在右边的常见图例被切断了。
编辑: 我已经解决了部分问题,问题只出现在我的台式电脑上,而不是我的笔记本电脑上,所以它可能是 R 库的其他包或版本的问题
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。