将数据框从 1 x 4 重塑为 2 x 2？

Question

我正在使用 dplyr 库，并在管道中创建了一个数据框，看起来像这样：

a <- c(1, 2, 2)
b <- c(3, 4, 4)
data <- data.frame(a, b)
data %>% summarize_all(c(min, max))

这给了我这个数据框：

a_fn1 b_fn1 a_fn2 b_fn2
    1     3     2     4

我正在尝试重塑这个数据框，以便管道的输出在几行中堆叠多列，如下所示：

A  B
----
1  3
2  4

我该怎么办？我不想更改函数的调用方式，因为 summarise_all 函数可以帮助我实现我正在寻找的值。我只想知道如何将此数据框更改为形状，以便每行中的每个值都是给定列的汇总函数的值。

Answer 1

首先，在summarize_all() 中命名您的函数将使它们出现在结果中，以便于争论。

然后，您可以使用pivot_longer() 和names_to 中的特殊.value 哨兵来实现您想要的：

library(tidyverse)
a <- c(1, 2, 2)
b <- c(3, 4, 4)
data <- data.frame(a, b)
data %>% 
  summarize_all(c(min=min, max=max)) %>%
  pivot_longer(everything(), names_to=c(".value", "variable"), names_pattern="(.)_(.+)")
#> # A tibble: 2 x 3
#>   variable     a     b
#>   <chr>    <dbl> <dbl>
#> 1 min          1     3
#> 2 max          2     4

^{由reprex package (v2.0.0) 于 2021-07-22 创建}

根据您想要的输出，您甚至可以将顺序切换为c("variable", ".value")。

请注意，summarize_all() 已被弃用，您可能希望使用新的、更详细的语法：summarize(across(everything(), c(min=min, max=max)))。