如何通过在dplyr

Question

列索引组我遇到的情况，我在一个变量得到列索引和我有GROUP BY和变量

col_index <- which(sapply(dataframe, function(x) any(x == "Area of Maintenance"))) 

> col_index 
    X__7 
    8 

现在我的希望将总结col_index值如下

df%>% 
group_by(df[col_index]) %>% 
summarise(count = n()) %>% 
as.data.frame() 

它给我下面的错误。

Error in mutate_impl(.data, dots) : 
Evaluation error: Column index must be at most 1 if positive, not 8. 

col_index具有动态值。我该怎么做r？

Answer 1

您可以通过搭配使用group_by_if给定函数的所有列组：

df %>% 
    group_by_if(function(x) any(x == "Area of Maintenance")) %>% 
    summarise(count = n()) %>% 
    as.data.frame() 

Answer 2

尝试以下操作：

col_index <- which(sapply(colnames(dataframe), function(x) any(x == "Area of Maintenance"))) 

df%>% 
group_by(.[[col_index]]) %>% 
summarise(count = n()) %>% 
as.data.frame() 

注：我不得不使用colnames在sapply得到它在我的机器上正确工作

图片来源：我接受了dplyr: how to reference columns by column index rather than column name using mutate?