R中某些相关列的转置

Question

我是 R 的新手。我试图在没有运气的情况下对数据帧进行转置。尝试使用 t(dataframe), melt(dataframe) 但没有得到我想要的输出。

原始数据框如下

CAT1   CAT2   VAL1   VAL2
A1     A2     BLUE   BLUE
B1     B2     GREEN  GREEN
C1     C2     BLUE   BLUE

我想以这种方式转置这个数据框，使其看起来像下面这样，并且 VAL1 和 VAL2 工作于分组变量。

VAL    CAT

BLUE   A1    
       A2
BLUE   C1
       C2
GREEN  B1
       B2

我想知道这是否可以实现。

这是创建第一个数据集的代码：

dt <-data.frame('CAT1' = c('A1','B1','C1'),
                'CAT2' = c('A2','B2','C2'),
                'VAL1' = c('BLUE','RED','GREEN'),
                'VAL2' = c('BLUE','RED','GREEN'), stringsAsFactors = FALSE)

提前致谢。

Answer 1

我认为reshape 会让你靠近。

dt_long <- reshape(dt, varying = list(c('CAT1','CAT2'),
                                      c('VAL1','VAL2')), 
                       sep = "",
                       direction = "long")
dt_long
#    time CAT1  VAL1 id
#1.1    1   A1  BLUE  1
#2.1    1   B1   RED  2
#3.1    1   C1 GREEN  3
#1.2    2   A2  BLUE  1
#2.2    2   B2 BLACK  2
#3.2    2   C2   RED  3

现在您需要排除不需要的列，如dt_long[, c("CAT1", "VAL1")]。

此外，如果您的列名是“CAT1, CAT2, ... CATn”，而不是输入 n 个名称，请执行 paste0("CAT", 1:n)。

---

更新

根据新的需求，我们可以创建列VAL为

dt_long$VAL <- c(rbind(unique(dt_long$VAL1), NA))
#    CAT1  VAL1   VAL
#1.1   A1  BLUE  BLUE
#1.2   A2  BLUE  <NA>
#2.1   B1   RED   RED
#2.2   B2   RED  <NA>
#3.1   C1 GREEN GREEN
#3.2   C2 GREEN  <NA>

此外，我们可以生成向量c("VAL11, VAL12, VAL21, VAL22, VAL31, VAL32")

paste0("VAL", c(sapply(1:3, paste0, 1:2)))
#[1] "VAL11" "VAL12" "VAL21" "VAL22" "VAL31" "VAL32"

希望这会有所帮助。