R 从长到宽，有一对柱子

Question

我正在尝试将数据集从长格式转换为宽格式。

我的输入数据如下:

df <- data.frame(year = c(2011:2013),
             T1 = c("a", "b", "c"),
             T2 = c("b", "c", "d"),
             V1 = rep(1, 3),
             V2 = rep(2, 3))

期望的输出在哪里

df2 <- data.frame(year = c(2011:2013),
              a = c(1, 0, 0),
              b = c(2, 1, 0),
              c = c(0, 2, 1),
              d = c(0, 0, 2))

我认为(至少对我而言)更具挑战性的是 T1 和 V1 列是“成对”的，​​T2 和 V2 也是如此。试图收集列 T1 和 T2 然后传播(或 dcast)它，但似乎不起作用。

这是我尝试过的。

require(data.table)
dt <- setDT(df)
tmp <- melt(dt, measure.vars = c("T1", "T2"))
dcast(tmp, year ~ value, value.var = c("V1", "V2"))

当我对其进行 dcast 时，V1_a 和 V2_a 分别取值 1 和 2，不允许我保留“对”结构。

任何帮助将不胜感激!谢谢!

Answer 1

在这里，我们可以在 data.table 语法中使用 measure 和 patterns

library(data.table)
dcast(melt(setDT(df), measure = patterns("^T", "^V")), 
      year ~ value1, value.var = 'value2', fill = 0)
#   year a b c d
#1: 2011 1 2 0 0
#2: 2012 0 1 2 0
#3: 2013 0 0 1 2