R：根据复合列名将数据框从宽格式重塑为长格式

Question

我有一个数据框，其中包含两组数据（A，B）的观察结果，数据集和观察类型由列名给出：

mydf <- data.frame(meta1=paste0("a",1:2), meta2=paste0("b",1:2), 
                   A_var1 = c(11:12), A_var2 = c("p","r"), 
                   B_var1 = c(21:22), B_var2 = c("x","z"))

我想重塑这个数据框，使每一行只包含对一组的观察。在这种长格式中，集合和列名应该通过在“_”处拆分原始列名来给出：

mydf2 <- data.frame(meta1=rep(paste0("a",1:2),2), 
                  meta2=rep(paste0("b",1:2),2),
                  set=c("A","B","A","B"),
                  var1 = c(11:12),
                  var2 = c("a","b","c","d"))

我曾尝试将 'gather' 与 'str_split'、'sub' 结合使用，但不幸的是没有成功。这可以使用潮汐函数来完成吗？

Answer 1

是的，您可以通过 tidyverse 做到这一点！

你很亲密，你需要gather，然后是separate，然后是spread。

new_df <- mydf %>%
  gather(set, vars, 3:6) %>%
  separate(set, into = c('set', 'var'), sep = "_") %>%
  spread(var, vars)

希望这会有所帮助！