1 
library(tidyverse)
mtcars %>% group_by(cyl) %>% is_grouped_df()
#> [1] TRUE

我可以按变量对数据框进行分组，并确认它是否使用is_grouped_df()函数进行分组（如上所示）。

我可以对 dplyrrowwise()函数运行相同的分析，并且它似乎rowwise()没有按行对数据集进行分组。我有一个问题，并且阅读帮助页面 ( ?rowwise) 并不能清楚地回答我的问题。

按行分组输入

说明： rowwise() 允许您在数据帧上一次计算一行。当向量化函数不存在时，这是最有用的。

逐行 tibble 保持其逐行状态，直到被 group_by()、ungroup() 或 as_tibble() 显式删除。

我的问题：调用该rowwise()函数后，我是否需要ungroup()稍后在我的管道中调用该函数来取消分组我的数据集？或者这是默认完成的？以下管道表明包含rowwise()未分组的管道：

mtcars %>% rowwise() %>% is_grouped_df()
#> [1] FALSE

这句话让我感到困惑，“逐行小标题保持其逐行状态，直到被... ungroup()... 明确删除”。为什么我需要ungroup()一个已经取消分组的小标题？

4

1 回答 1

2

有趣的观察。这可能是一个错误，is_grouped_df除非它以某种方式是我不知道的功能。但我确实ungroup认为考虑下面进行的测试很重要（见评论）：

library(tidyverse)

mtcars %>% select(1:3) %>% rowwise() %>% head(2)
#> Source: local data frame [2 x 3]
#> Groups: <by row>
##### ^ THIS DOES HAVE A GROUP ####
#> 
#> # A tibble: 2 x 3
#>     mpg   cyl  disp
#>   <dbl> <dbl> <dbl>
#> 1    21     6   160
#> 2    21     6   160

mtcars %>% select(1:3) %>% rowwise() %>% mutate(n()) %>% head(2)
#> Source: local data frame [2 x 4]
#> Groups: <by row>
#> 
#> # A tibble: 2 x 4
#>     mpg   cyl  disp `n()`
#>   <dbl> <dbl> <dbl> <int>
#> 1    21     6   160     1
#> 2    21     6   160     1
mtcars %>% select(1:3) %>% mutate(n()) %>% head(2)                                              
#>   mpg cyl disp n()
#> 1  21   6  160  32
#> 2  21   6  160  32

##### ^ THIS IS EXPECTED AND THE n BEHAVES DIFFERENTLY WHEN THE ROWWISE() IS APPLIED ####

##### IF WE WANT TO RESTORE "NORMAL" BEHAVIOR, IT'S PROBABLY WISE TO UNGROUP IN ORDER TO LOSE THE ROWWISE OPERATIONS #####
mtcars %>% select(1:3) %>% rowwise() %>% ungroup %>% mutate(n()) %>% head(2)
#> # A tibble: 2 x 4
#>     mpg   cyl  disp `n()`
#>   <dbl> <dbl> <dbl> <int>
#> 1    21     6   160    32
#> 2    21     6   160    32

## ^ NORMAL AFTER UNGROUP
于 2020-05-04T16:55:47.973 回答