plots <- data %>%
select( contains("Pct")) %>%
map(~ggplot(data, aes(y= . , x = Project_Name ,fill=Project_Name,)) +
geom_boxplot(alpha=0.7) +
theme(legend.position="none", axis.title.x=element_blank() , axis.text.x=element_blank() )+
labs(title=names(.)) +
scale_fill_brewer(palette="Dark2"))
ggarrange(plotlist = plots,common.legend = TRUE)
使用上面的代码,我可以获取图表,但无法获取y轴标签,我可以将选定的列名称添加为y轴标签吗?否则,图表标题(names(。))不起作用。
这可以通过使用purrr::imap
代替来实现map
。
使用iris
的示例数据试试这个:
library(ggplot2)
library(dplyr)
library(ggpubr)
library(purrr)
plots <- iris %>%
select(contains("Petal")) %>%
imap(~ggplot(iris, aes(y = .x , x = Species , fill=Species)) +
geom_boxplot(alpha=0.7) +
theme(legend.position="none", axis.title.x=element_blank() , axis.text.x=element_blank() )+
labs(title=.y) +
scale_fill_brewer(palette="Dark2"))
ggarrange(plotlist = plots, common.legend = TRUE)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句