r-Hw我可以使用dplyr中的排列来订购组吗

Question

我想对数据进行分组，然后排列表，以便首先显示具有最高值的组。例如，在mtcars数据集中，我想按气缸数对汽车进行分组，然后排列表格，使具有最高平均mpg的组首先显示

mtcars %>% group_by (cyl)  %>% arrange (desc(mean (mpg)))

这会产生一个错误：

Error: incorrect size (1) at position 1, expecting : 32

我问的原因是filter((在groupby((之后应用时应用于整个组，而不是单个行。

Answer 1

一个很好的方法是将分组变量转换为factor，并使用reorder(或forcats::fct_reorder(来控制级别的顺序。然后您可以通过该列arrange。(分组隐含在reorder函数中。(

library(dplyr)
mtcars %>%
mutate(
cyl = reorder(factor(cyl), -mpg) 
# stats::reorder, built-in, uses mean by default
# use -mpg to make it descending
) %>%
arrange(cyl)
# alternately
library(forcats)
mtcars %>%
mutate(
cyl = fct_reorder(factor(cyl), mpg, .fun = mean, .desc = TRUE)
# forcats::fct_reorder, uses median by default,
# takes a .desc argument to make it descending
) %>%
arrange(cyl)

像这样更改数据是很好的，因为您指定的顺序将被其他函数记住并使用(例如在ggplot中对条或面进行排序(。

Answer 2

也许是这样？首先，按cyl分组，然后用mean(mpg)填充一个新列，然后可以根据需要进行排列，最后删除临时的mean(mpg)列。

mtcars %>% 
group_by(cyl) %>% 
mutate(mean_mpg = mean(mpg)) %>%
arrange(desc(mean_mpg)) %>%
select(-mean_mpg)
#> # A tibble: 32 x 11
#> # Groups:   cyl [3]
#>      mpg   cyl  disp    hp  drat    wt  qsec    vs    am  gear  carb
#>    <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#>  1  22.8     4 108      93  3.85  2.32  18.6     1     1     4     1
#>  2  24.4     4 147.     62  3.69  3.19  20       1     0     4     2
#>  3  22.8     4 141.     95  3.92  3.15  22.9     1     0     4     2
#>  4  32.4     4  78.7    66  4.08  2.2   19.5     1     1     4     1
#>  5  30.4     4  75.7    52  4.93  1.62  18.5     1     1     4     2
#>  6  33.9     4  71.1    65  4.22  1.84  19.9     1     1     4     1
#>  7  21.5     4 120.     97  3.7   2.46  20.0     1     0     3     1
#>  8  27.3     4  79      66  4.08  1.94  18.9     1     1     4     1
#>  9  26       4 120.     91  4.43  2.14  16.7     0     1     5     2
#> 10  30.4     4  95.1   113  3.77  1.51  16.9     1     1     5     2
#> # ... with 22 more rows