不使用unique()删除重复数据帧

Question

我需要获取分组数据框中每个组的行数。这似乎是按需要工作的：

以下是一些数据：

library(dplyr)

my_mtcars <- mtcars %>% 
  rownames_to_column('Car') %>% 
  
  # add some duplicate rows
  add_row(.[3,]) %>% 
  add_row(.[7,]) %>% 
  add_row(.[10,]) %>% 
  group_by(Car) %>% 
  mutate(n = n(),
         rn = row_number())

my_mtcars %>% arrange(desc(n), Car) %>% View

​

​

这似乎得到了我需要的东西，每个组的row_number()。但是，我需要向group by传递一个chr vect，而不是字段名。如果我将group_by行更改为group_by(vars(c('Car')))，行号不再是每个组，而是整个df。

​

​

如何在将chr字符串传递给group by时获得每个组的row_number()？

Answer 1

您可以使用.data

library(dplyr)
string <- 'Car'

group_by(.data[[string]])

或者使用across：

group_by(across(all_of(string)))

Answer 2

我们也可以转换成sym字体并用!!求值

library(dplyr)
string1 <- "Car"
group_by(!! rlang::sym(string1))