利用assign实现ggplot的批量做图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位老师好，
     我想把很多个变量用图像展现出来，然后放到一个画布里，示例代码如下：

1. library(ggplot2)
   
2. head(mtcars)
   
3. for(i in 3:7){
   
4.   assign(paste0("p", i),ggplot(data = mtcars, aes(x = mpg, y = mtcars[,i]))+geom_point()+
   
5.    ylab(rownames(mtcars)[i]))
   
6. }
   
7. 
   
8. library(Rmisc) #图片组合到同一张画布中
   
9. multiplot(p3,p4,p5,p6,p7,cols=3)
   
10. p3
    
11. p4
    
12. p5
    
13. p6
    
14. p7

复制代码

但发现生成的图片都是一样的！没想明白哪里出错了，希望各位老师指教，谢谢

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏6 回帖

关键词：assign gplot sign plot GPL

用ggplot自带的facit不可以吗？为什么要自己写？

将for循环中的内容改为

1. for(i in 3:7){
   
2.   assign(paste0("p", i),ggplot(data = mtcars, aes_string(x = "mpg", y = mtcars[,i]))+geom_point()+
   
3.    ylab(rownames(mtcars)[i]))
   
4. }

复制代码

可以看看aes和aes_string的区别

megapanda 发表于 2019-12-10 14:02
将for循环中的内容改为

非常感谢…
我查到，aes()需要填入变量名，但要批量出图的话，难免要用到字符向量的循环，aes_string函数可以将字符变量映射为ggplot所需的输入参数.

提供两种不用for循环的方法，希望对你有帮助

1. #包
   
2. 
   
3. library(ggloop)
   
4. library(ggplot2)
   
5. library(magrittr)
   
6. library(purrr)
   
7. 
   
8. #方法一,分配变量，然后绘图
   
9. 
   
10. zeallot::`%<-%`(x = c(p3, p4, p5, p6, p7),
    
11.       value =
    
12.         ggloop(data = mtcars,
    
13.                 mappings = aes_loop(
    
14.                    x = mpg,
    
15.                    y = 3:7))%>%
    
16.         map(function(x) x+geom_point())
    
17. )
    
18. 
    
19. cowplot::plot_grid(p3, p4, p5, p6, p7, ncol = 3)
    
20. 
    
21. #方法二 直接绘图，不分配变量
    
22. cowplot::plot_grid(
    
23.   plotlist=ggloop(data = mtcars,
    
24.                   mappings = aes_loop(
    
25.                     x = mpg,
    
26.                     y = 3:7))%>%
    
27.     map(function(x) x+geom_point())
    
28.   ,ncol = 3)

复制代码

zhou1_20 发表于 2019-12-12 09:41
提供两种不用for循环的方法，希望对你有帮助

恩恩，谢谢老师！