R tidyverse如何在彼此之后做两个pivot_longer而不是一个答案

【问题标题】：R tidyverse how to do two pivot_longer after each other instead of a single oneR tidyverse如何在彼此之后做两个pivot_longer而不是一个
【发布时间】：2020-12-16 03:58:41
【问题描述】：

假设以下数据：

structure(list(uuid = c("abc", "def", "hij"), Q1r1 = c(0L, 1L, 
1L), Q1r2 = c(1L, 1L, 1L), Q1r3 = c(1L, 0L, 1L), Q2r1c1 = c(4L, 
3L, 5L), Q2r1c2 = 2:4, Q2r1c3 = c(1L, 5L, 2L), Q2r2c1 = c(3L, 
3L, 4L), Q2r2c2 = c(2L, 5L, 4L), Q2r2c3 = c(1L, 4L, 5L), Q3r1 = c(5L, 
9L, 7L), Q3r2 = c(10L, 3L, 8L), Q3r3 = c(6L, 8L, 5L)), class = "data.frame", row.names = c(NA, 
-3L))

给出：

  uuid Q1r1 Q1r2 Q1r3 Q2r1c1 Q2r1c2 Q2r1c3 Q2r2c1 Q2r2c2 Q2r2c3 Q3r1 Q3r2 Q3r3
1  abc    0    1    1      4      2      1      3      2      1    5   10    6
2  def    1    1    0      3      3      5      3      5      4    9    3    8
3  hij    1    1    1      5      4      2      4      4      5    7    8    5

现在假设我想对所有 Q1 和 Q3 列的数据进行 pivot_longer（其中这些列中的 r1、r2 和 r3 表示要创建的行）。

这相对简单：

dat %>%
  pivot_longer(cols      = c(starts_with("Q1"), starts_with("Q3")),
               names_sep = "r",
               names_to  = c('.value', 'brand’))

给出：

# A tibble: 9 x 10
  uuid  Q2r1c1 Q2r1c2 Q2r1c3 Q2r2c1 Q2r2c2 Q2r2c3 brand    Q1    Q3
  <chr>  <int>  <int>  <int>  <int>  <int>  <int> <chr> <int> <int>
1 abc        4      2      1      3      2      1 1         0     5
2 abc        4      2      1      3      2      1 2         1    10
3 abc        4      2      1      3      2      1 3         1     6
4 def        3      3      5      3      5      4 1         1     9
5 def        3      3      5      3      5      4 2         1     3
6 def        3      3      5      3      5      4 3         0     8
7 hij        5      4      2      4      4      5 1         1     7
8 hij        5      4      2      4      4      5 2         1     8
9 hij        5      4      2      4      4      5 3         1     5

现在，我的问题是：是否还有一种方法可以将两个枢轴彼此分开，即先是 pivot_longer Q1，然后是 pivot_longer Q3？

我问的原因是，或者我也想旋转 Q2 和 Q3（但在 Q2 中，行标识符是 c1、c2、c3 并且我希望在 pivoting_longer 之后有两个结果列 Q2r1 和 Q2r2，而行Q3 的标识符是 r1, r2, r3，因此上面带有 names_sep 和 names_to 的简单代码不再起作用）。一位同事告诉我，在其他软件中，您可以连接单个 pivot_longers，所以我想知道在 R 中是否可以这样做。

注意：我知道如何在一轮中完成 Q2 和 Q3 的旋转。我真的只是想知道是否可以拆分旋转并一个接一个地进行。

我以 Q1 和 Q3 为中心的第一个示例的预期输出是：

# A tibble: 9 x 10
  uuid  Q2r1c1 Q2r1c2 Q2r1c3 Q2r2c1 Q2r2c2 Q2r2c3 brand    Q1    Q3
  <chr>  <int>  <int>  <int>  <int>  <int>  <int> <chr> <int> <int>
1 abc        4      2      1      3      2      1 1         0     5
2 abc        4      2      1      3      2      1 2         1    10
3 abc        4      2      1      3      2      1 3         1     6
4 def        3      3      5      3      5      4 1         1     9
5 def        3      3      5      3      5      4 2         1     3
6 def        3      3      5      3      5      4 3         0     8
7 hij        5      4      2      4      4      5 1         1     7
8 hij        5      4      2      4      4      5 2         1     8
9 hij        5      4      2      4      4      5 3         1     5

第二个示例中我想要以 Q2 和 Q3 为中心的期望输出是：

# A tibble: 9 x 8
  uuid   Q1r1  Q1r2  Q1r3 brand   Q2r1  Q2r2    Q3
  <chr> <int> <int> <int> <chr>  <int> <int> <int>
1 abc       0     1     1 brand1     4     3     5
2 abc       0     1     1 brand2     2     2    10
3 abc       0     1     1 brand3     1     1     6
4 def       1     1     0 brand1     3     3     9
5 def       1     1     0 brand2     3     5     3
6 def       1     1     0 brand3     5     4     8
7 hij       1     1     1 brand1     5     4     7
8 hij       1     1     1 brand2     4     4     8
9 hij       1     1     1 brand3     2     5     5

【问题讨论】：

你能发布你想要的输出吗？
对于第一个示例（我在 Q1 和 Q3 中进行了 pivot_longer），输出实际上正是您在运行我的数据透视代码时会得到的输出。不过，我会更新我的帖子。

标签： r pivot tidyr

【解决方案1】：

好的，在更好地理解了这个问题之后，我能想到的唯一答案就是 hackish。您在 cmets 中提到了一个；这是另一个。这围绕着使用灵活的正则表达式来选择列。然后它通过Reduce() 将数据帧连接在一起（或者如果你愿意，你可以换成purrr::reduce()）。另外，请注意，这是执行从宽到长的多个独立时间（和组合），而不是按顺序执行。

col_starts <- c("Q2", "Q3")

lapply(col_starts, function(x) {
  
  df %>%
    pivot_longer(matches(paste0("^", x)),
                 names_pattern = "(Q\\d.*)[rc](\\d)$",
                 names_to = c(".value", "brand")) %>%
    select(uuid, brand:ncol(.), everything(), -matches(paste0("^", setdiff(col_starts, x), collapse = "|")))
  
}) %>% Reduce(function(x, y) left_join(x, y, by = intersect(names(x), names(y))), .)
# A tibble: 9 x 8
  uuid  brand  Q2r1  Q2r2  Q1r1  Q1r2  Q1r3    Q3
  <chr> <chr> <int> <int> <int> <int> <int> <int>
1 abc   1         4     3     0     1     1     5
2 abc   2         2     2     0     1     1    10
3 abc   3         1     1     0     1     1     6
4 def   1         3     3     1     1     0     9
5 def   2         3     5     1     1     0     3
6 def   3         5     4     1     1     0     8
7 hij   1         5     4     1     1     1     7
8 hij   2         4     4     1     1     1     8
9 hij   3         2     5     1     1     1     5

这是一个只保留uuid、brand 和派生列的版本（它更容易阅读imo）

lapply(c("Q2", "Q3"), function(x) {
  
  df %>%
    pivot_longer(matches(paste0("^", x)),
                 names_pattern = "(Q\\d.*)[rc](\\d)$",
                 names_to = c(".value", "brand")) %>%
    select(uuid, brand, starts_with(x))
  
}) %>% Reduce(function(x, y) left_join(x, y, by = c("uuid", "brand")), .)

【讨论】：

感谢您提供上述代码。但是，您提到的示例是您可以在一个管道中获得结果的示例，即您只需调用 pivot_longer 一次。但是，我想知道在多次调用 pivot_longer 时是否有办法获得相同的结果。因此，假设第一个调用以 Q2 为中心，它为您提供了 brand 和 Q2r1 和 Q2r2 列。但 Q3r1、Q3r2 和 Q3r3 保留其原始格式（如 Q1r1、Q1r2、Q1r3）。所以问题是，一旦你有了这个临时重塑的数据集，你怎么能在 Q3r1-Q3r3 上添加另一个 pivot_longer 调用......
...仍然得到我上面提到的所需输出？我知道这个例子没有必要多次调用。如果可能的话，这实际上更多的是关于这个问题。因为有时人们会发现如果他们可以分开他们的管道并一步一步地做事情会更容易。
我想我明白了，你想要最终结果，但你想要它分几个步骤。这可能是可能的，但我认为随后两次调用pivot_longer() 是不可能的，因为第二次调用根本不会使数据变长。如果我无法提出任何其他建议，我会考虑并稍后删除此答案。
没错，这就是我想要实现的。我也已经认为随后的两个枢轴延长器将不起作用。如果我的问题的答案是“不，不可能”，我也很好。但也许我错过了一个选择。
感谢您整理这个...解决方法。但总而言之，我想说没有直接的方法可以按照我概述的方式“连接”几个枢轴。至少不会让它看起来更干净或更结构化，并且对于初学者来说可能更容易理解。记住 pivot_longer 的工作原理是完全有道理的（正如您所提到的，第二个 pivot_longer 将不再是 pivot_longer）。