在 R 中使用 group_by() 中的参数产生 function() 的问题

Question

这是我的代码。我做错了什么？

sums <- function(x, y) {
        
        if(nargs() < 2){  
               a <-  mtcars %>% group_by(.$x) %>% summarise(tot = sum(disp))}
        
        else{
               a <-  mtcars  %>% group_by(.$x,.$y) %>% summarise(tot= sum(disp))
        }
        
        a
}

sums(cyl)

sums(cyl,gear)

任何帮助

Answer 1

当我们传递不带引号的参数时，请使用 curly-curly 运算符 ({{}})

sums <- function(x, y) {
    
    if(nargs() < 2){  
           a <-  mtcars %>% 
                   group_by({{x}}) %>%
                   summarise(tot = sum(disp))
          } else{
           a <-  mtcars  %>% 
                   group_by({{x}},{{y}}) %>% 
                   summarise(tot= sum(disp))
      }
    
    a
   }