如何使用循环语句实现不同变量的ggplot作图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. plot1 <- ggplot(a,aes(x=year, y=p1, fill=eva2))+
   
2.          geom_text(aes(y=y1,label=paste(format(p1,nsmal = 1),"%")))+
   
3.          title1

复制代码

这段代码我想实现plot1和所有的p1 y1 titile1最后的数字可以依次递增，比如从1-10，请问如何用循环语句实现

换一种问法就是如何在R中实现像SAS中的宏变量的效果


希望各位能够指点一二

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：gplot 循环语句 如何使用 plot GPL ggplot 循环 作图

1. 可以用新版dply里面的rlang的功能
   
2. 
   
3. library(dplyr)
   
4. plot <- list()
   
5. for (i in 1:10) {
   
6.   pi <- sym(paste0("p", i))
   
7.   yi <- sym(paste0("y", i))
   
8.   titlei <- sym(paste0("title", i))
   
9.   plot[[i]] <- ggplot(a,aes(x=year, y=!!pi, fill=eva2))+
   
10.     geom_text(aes(y=!!yi,label=paste(format(!!pi,nsmal = 1),"%")))+
    
11.     !!titlei
    
12. }

复制代码

very neat solution, thanks

ntsean 发表于 2018-6-25 10:02

你好，学习你的方法我做了一下但是出了问题，请教一下是哪里不对。
我构造了一个数据集合，在iris数据集后面构建了petal.2~petal.5四个变量，如下
> names(iris1)
[1] "Sepal.Length" "Sepal.Width"  "Petal.Length" "Petal.Width"  "Species"      "petal.2"     
[7] "petal.3"      "petal.4"      "petal.5"   

循环绘图时用下面的代码
p <- list()
for (i in 2:5) {
  yi = sym(paste0("petal.", i))
  p[] <- iris1 %>% ggplot(mapping = aes(x = Species, y = !!yi)) + geom_boxplot()
  print(p[])
}
运行一下返回错误：
Error in !yn : 参数种类不对

你提到的这个代码我是第一次遇到，我想可能是我那里理解错了，还请指教，多谢！

xuwenpku 发表于 2018-6-26 09:26
你好，学习你的方法我做了一下但是出了问题，请教一下是哪里不对。
我构造了一个数据集合，在iris数据集 ...

sym 似没有必要！！？？

我的下面代码可以啊

1. library(tidyverse)
   
2. 
   
3. mtcars <- mtcars %>%
   
4.   mutate(
   
5.     hp1 = hp + 10,
   
6.     hp2 = hp + 100,
   
7.     hp3 = hp + 1000
   
8.   )
   
9. 
   
10. p <- list()
    
11. for (i in 1:3) {
    
12.   hpv <- sym(paste0("hp", i))
    
13.   p[[i]] <- mtcars %>% ggplot(aes(am, !!hpv)) + geom_line()
    
14. }
    
15. p[[1]]
    
16. 
    
17. p[[2]]

复制代码

你看下你的tidyverse是不是最新版

ntsean 发表于 2018-6-25 10:02

非常感谢ntsean的解答。

我使用这段代码运行后提示!!titlei这句有错，麻烦你帮我分析下是什么原因。

1. > title1<- ggtitle("name 1")#title
   
2. > title2<- ggtitle("name 2")#title
   
3. >
   
4. > #可以用新版dply里面的rlang的功能
   
5. > plot <- list()
   
6. > for (i in 1:3) {
   
7. +   mi <- sym(paste0("m", i))
   
8. +   titlei <- sym(paste0("title", i))
   
9. +   plot[[i]] <- ggplot(a2015,aes(x=loc, y=!!mi, group=sex,fill=sex))+
   
10. +     geom_bar(stat = "identity",position = "dodge", width=0.8)+
    
11. +     !!titlei
    
12. + }
    
13. Error in !titlei : invalid argument type

复制代码

还有我如果去掉!!title这句，能运行，但是运行print(plot)的时候，也提示错误，另外这个运行完不是生成plot1,plot2 plot3这样的吗？望ntsean能抽空解答，感谢！

1. > plot <- list()
   
2. > for (i in 1:3) {
   
3. +   mi <- sym(paste0("m", i))
   
4. +   titlei <- sym(paste0("title", i))
   
5. +   plot[[i]] <- ggplot(a2015,aes(x=loc, y=!!mi, group=sex,fill=sex))+
   
6. +     geom_bar(stat = "identity",position = "dodge", width=0.8)
   
7. +     #!!titlei
   
8. + }
   
9. > print(plot)
   
10. [[1]]
    
11. Error in !mi : invalid argument type

复制代码