R语言 for 循环

GSL1是数据框
flName是 GSL1中的 因子，有4个level : A B C D
djName是GSL1中的 因子，有 4个 level : 特级 一级 二级 三级
PRICE是 GSL1中的 数值型

实际变量更多，只列举以上两个

我试图写一个for的循环，涉及到dplyr的包，希望在group_by中分别设定 djName 和flName计算，代码如下

1. library(dplyr)
   
2. VAR<-c("djName","flName")
   
3. for (i in 1:2)
   
4. {GSL1%>%
   
5. group_by(VAR[i])%>%
   
6. summarise(Val=sum(PRICE,na.rm=TRUE))%>%
   
7. print()
   
8. }

复制代码

结果是

1. Source: local data frame [1 x 2]
   
2. 
   
3.   VAR[i]        Val
   
4. 1 flName 1524384459
   
5. Source: local data frame [1 x 2]
   
6. 
   
7.   VAR[i]        Val
   
8. 1 djName 1524384459

复制代码

我的理解是，VAR被当成一个字符处理了

然后尝试将VAR变成as.symbol(VAR)，运行提示

1. Error in mutate_impl(.data, dots) : object 'flName' not found

复制代码

请教这个要怎么解决

1. library(dplyr)
   
2. sym <- lapply(c("djName", "flName"), FUN = as.symbol)
   
3. flName = factor(c("A", "B", "C", "D", "A", "B", "C", "D", "A", "B"))
   
4. djName = factor(c("best", "first", "second", "third", "best", "first", "second", "third", "second", "third"))
   
5. price = rnorm(10)
   
6. df = data.frame(flName, djName, price)
   
7. for (s in sym) {
   
8.   print(df %>% group_by_(.dots = s) %>% summarise(sum = sum(price, rm = TRUE))) }

复制代码

1. VAR <- lapply(VAR, as.symbol)

复制代码

循环里面写：

1. group_by(.dots=VAR)

复制代码

g4730380 发表于 2015-6-9 03:08
循环里面写：

似乎不行，能麻烦你把完整的循环写出来么

g4730380 发表于 2015-6-9 03:08
循环里面写：

似乎不行，能麻烦你把完整的循环写出来么

g4730380 发表于 2015-6-9 03:08
循环里面写：

似乎不行，能麻烦你把完整的循环写出来么

g4730380 发表于 2015-6-9 03:08
循环里面写：

Error: wrong result size (2), expected 7749168 or 1

g4730380 发表于 2015-6-9 01:36

感谢，我用的是

1. Var<-c("brandNAME","o1name","o2name","SBUName","flName","djName","AGE")
   
2. National<-list()
   
3. for (i in 1:length(Var)){
   
4.   National[[i]]<-GSL%>%group_by_(Var[i],"DATE")%>%
   
5.   summarise(Val=round(sum(PRICE/10000,na.rm=TRUE),2))%>%
   
6.   rename_(Variable=Var[i])%>%dcast(Variable~DATE)
   
7. }

复制代码