如何在 R 中进行简单的转置/旋转

Question

我只想获取一个包含两列的数据框，一列带有分组变量，第二列带有值，然后对其进行转换，以便分组变量成为具有适当值的列。一个非常简单的问题，但是搜索了大约一个小时后，我找不到一个好的答案。这是一个玩具示例：

var <- c("Var1", "Var1", "Var2", "Var2")
value <- c(1, 2, 3, 4)

df <- data.frame(var, value)

df.one <- df[df$var == "Var1", ]
df.two <- df[df$var == "Var2", ]

desired.df <- data.frame(df.one[2], df.two[2])
colnames(desired.df) <- c("Var1", "Var2")

desired.df

随着变量和值的增加，这段代码可能会变得非常笨重。任何人都可以提出更好的方法吗？任何建议将不胜感激！

Answer 1

数据：

df <- structure(list(var = structure(c(1L, 1L, 2L, 2L), 
.Label = c("Var1", "Var2"), class = "factor"), 
 value = c(1, 2, 3, 4)), .Names = c("var", "value"), 
 class = "data.frame", row.names = c(NA, -4L))

引入一个新变量来识别var 中的观察似乎很有用（我在下面称之为case）；如果你愿意，你可以在重塑它后将其移除。

与reshape2/plyr:

library("plyr")
library("reshape2")
## add 'case' identifier
df <- ddply(df,"var",mutate,case=1:length(var))
## dcast() to reshape; then drop identifier
dcast(df,case~var)[,-1]

与tidyr（相同策略）：

library("tidyr")
library("dplyr")
df %>% group_by(var) %>%
    mutate(case=seq(n())) %>%
        spread(var,value) %>%
            select(-case)

这可能也可以使用基础 R 中的reshape() 来完成，但我一直无法弄清楚...

Answer 2

基础 R 解决方案：

data.frame(split(df$value,df$var))
#  Var1 Var2
#1    1    3
#2    2    4

此解决方案意味着所有“VarN”子集的长度相同。 更通用的解决方案是：

z <- split(df$value,df$var)
max.length <- max(sapply(z,length))
data.frame(lapply(z,`length<-`,max.length))

将 NA 附加到较短的列表以确保所有列表具有相同的长度。