使用下面的代码根据定义的向量总结变量,但失败。有人能帮忙吗?谢谢!
library(tidyverse)
data('diamonds')
group_variables <- c('color','clarity','cut')
value_variables <- c('x','y','z')
for (group_variable in group_variables){
for (value_variable in value_variables){
result <- diamonds %>%
group_by(group_variable) %>%
summarise(values_sum=sum(value_variable))
print(result)
}
}
使用函数sym()
是可以的,更新后的代码如下。
for (group_variable in group_variables){
for (value_variable in value_variables){
group_variable <- sym(group_variable)
value_variable <- sym(value_variable)
result <- diamonds %>%
group_by({{group_variable}}) %>%
summarise(values_sum = sum({{value_variable}}))
print(result)
}
}