具有相同名称的多个集合的 pivot_longer_to答案

【问题标题】：pivot_longer for multiple sets having the same names_to具有相同名称的多个集合的 pivot_longer_to
【发布时间】：2021-12-16 07:00:43
【问题描述】：

我正在尝试使用多个变量集的 pivot_longer，但我无法从示例中正确获取语法。

我的虚拟数据集是：

library(dplyr)
library(tidyr)

ID =  c("id-1", "id-2", "id-3")
State = c("MD", "MD", "VA")
Time1Day= c( 1, 12, 30)
Time1Month = c( 1, 4, 5)
Time2Day = c( 9, 21, 13)
Time2Month = c( 12, 4, 5)
Time3Day = c( 7, 14, NA)
Time3Month = c( 1, 2, NA)


df <-data.frame(ID, State, Time1Day, Time1Month, Time2Day, Time2Month, Time3Day, Time3Month)

我想要的结果是：

    ID State  Time Day Month
1 id-1    MD Time1   1     1
2 id-1    MD Time2   9    12
3 id-1    MD Time3   7     1
4 id-2    MD Time1  12     4
5 id-2    MD Time2  21     4
6 id-2    MD Time3  14     2
7 id-3    VA Time1  30     5
8 id-3    VA Time2  13     5

我查看了here 和here 以尝试使语法正确，并尝试了以下两种解决方案，但我无法使用：

df.long <- df %>% 
  pivot_longer(cols = starts_with("Time"), names_to = c("Day", "Month"), names_sep="(?=[0-9])"), values_to = "Time", values_drop_na = TRUE)

df.long <- df %>% 
  pivot_longer(cols = ends_with("Day"), names_to = c("Time"), values_to = "Days", values_drop_na = TRUE) %>% 
  pivot_longer(cols = ends_with("Month"), names_to = c("Time"), values_to = "Months", values_drop_na = TRUE)

任何关于我缺少什么以及如何解决它的建议将不胜感激

【问题讨论】：

这能回答你的问题吗？ Reshaping Wide to Long but not reshaping all variables on R

标签： r dplyr tidyr

【解决方案1】：

编辑感谢 TarJae 的评论添加了 values_drop_na = TRUE。

你可以使用

library(dplyr)
library(tidyr)

df %>% 
  pivot_longer(-c(ID, State), 
               names_to = c("Time", ".value"),
               names_pattern = "(Time\\d)(.*)",
               values_drop_na = TRUE)

# A tibble: 9 x 5
  ID    State Time    Day Month
  <chr> <chr> <chr> <dbl> <dbl>
1 id-1  MD    Time1     1     1
2 id-1  MD    Time2     9    12
3 id-1  MD    Time3     7     1
4 id-2  MD    Time1    12     4
5 id-2  MD    Time2    21     4
6 id-2  MD    Time3    14     2
7 id-3  VA    Time1    30     5
8 id-3  VA    Time2    13     5

【讨论】：

你可以加上values_drop_na = TRUE，那么输出是完全一样的！
谢谢，这很有魅力。快速跟进：.value 代表什么？是不是说 Time1、Time2 和 Time3 都应该在 Time 标题下？
.value 参数采用names_pattern 的匹配部分（在本例中为：(.*)）并将其用作新列名。所以Time1Day 分为Time1 和Day，Time1Month 分为Time1 和Month 和pivot_longer 知道将值放在哪里。
@MartinGal 有没有办法记住这个名称模式的东西是如何工作的。有什么技巧吗？有一天我可以申请第二天它对我来说是全新的？！
@TarJae 我也在努力解决这个问题。 :-(

【解决方案2】：

data.table 方法

library(data.table)
# melt to long
DT <- melt(setDT(df), id.vars = c("ID", "State"), variable.factor = FALSE, na.rm = TRUE)
# split variable string
DT[, c("Time", "part2") := tstrsplit(variable, "(?<=[0-9])", perl=TRUE)]
# recast to wide
dcast(DT, ID + State + Time ~ part2, value.var = "value", drop = TRUE)
#      ID State  Time Day Month
# 1: id-1    MD Time1   1     1
# 2: id-1    MD Time2   9    12
# 3: id-1    MD Time3   7     1
# 4: id-2    MD Time1  12     4
# 5: id-2    MD Time2  21     4
# 6: id-2    MD Time3  14     2
# 7: id-3    VA Time1  30     5
# 8: id-3    VA Time2  13     5

【讨论】：