如何在 dplyr 中停止使用 rowwise？

Question

因此，如果希望在 dplyr 中逐行应用操作，可以使用rowwise 函数，例如：Applying a function to every row of a table using dplyr?

是否有一个unrowwise 函数可以用来逐行停止操作？目前，似乎在rowwise 删除行操作之后添加了group_by，例如

data.frame(a=1:4) %>% rowwise() %>% group_by(a)
# ...
# Warning message:
# Grouping rowwise data frame strips rowwise nature 

这是否意味着如果您希望明确删除rowwise，则应使用group_by(1)？

Answer 1

您可以使用as.data.frame()，如下所示

> data.frame(a=1:4) %>% rowwise() %>% group_by(a)
# A tibble: 4 x 1
# Groups:   a [4]
      a
* <int>
1     1
2     2
3     3
4     4
Warning message:
Grouping rowwise data frame strips rowwise nature 

> data.frame(a=1:4) %>% rowwise() %>% as.data.frame() %>% group_by(a)
# A tibble: 4 x 1
# Groups:   a [4]
      a
* <int>
1     1
2     2
3     3
4     4

Answer 2

只需使用ungroup()

以下会产生警告：

data.frame(a=1:4) %>% rowwise() %>% 
  group_by(a)
#Warning message:
#Grouping rowwise data frame strips rowwise nature

这不会产生警告：

data.frame(a=1:4) %>% rowwise() %>% 
  ungroup() %>% 
  group_by(a)

Answer 3

正如在 cmets 和其他答案中发现的那样，正确的做法是使用 ungroup()。

操作rowwise(df) 将df 的类之一设置为rowwise_df。我们可以通过检查代码here 来查看这个类的方法，它给出了以下ungroup 方法：

#' @export
ungroup.rowwise_df <- function(x) {
  class(x) <- c( "tbl_df", "data.frame")
  x
}

所以我们看到ungroup 并没有严格删除分组结构，而只是删除了从rowwise 函数添加的rowwise_df 类。