Question

我有一个这样的R数据框，有一个因子变量和两个或多个值变量。

> factorvar <- c('a', 'b', 'c')
> valvar1 <- c(1, 1, 1)
> valvar2 <- c(2, 2, 2)
> df <- data.frame(factorvar, valvar1, valvar2)
> df
  factorvar valvar1 valvar2
1         a       1       2
2         b       1       2
3         c       1       2

我想扩大它，使得最终数据框看起来如下所示：

> dfnew
  valvar1.a valvar1.b valvar1.c valvar2.a valvar2.b valvar2.c
  1         1         1         1         2         2         2

传播的dplyr / tidyr只允许我为一列（值）执行此操作。

Answer 1

此解决方案使用dplyr和tidyr库：

library(dplyr)
library(tidyr)

df %>%
  gather(valvar, value, -factorvar) %>%
  unite(key, factorvar, valvar) %>%
  mutate(dummy = 1) %>%
  spread(key, value) %>%
  select(-dummy)

返回：

  a_valvar1 a_valvar2 b_valvar1 b_valvar2 c_valvar1 c_valvar2
1         1         2         1         2         1         2

Answer 2

尝试dcast的开发版data.table，即v1.9.5。这可以采用多个值列，因此您可能无需将格式更改为long。它可以从here

安装

 library(data.table)
 dcast(setDT(df)[,ind:=1:.N, by = factorvar], ind~factorvar, 
              value.var=c('valvar1', 'valvar2')) 
 #    ind a_valvar1 b_valvar1 c_valvar1 a_valvar2 b_valvar2 c_valvar2
 #1:   1         1         1         1         2         2         2

@Arun的更紧凑的选项

 dcast(setDT(df), . ~ factorvar, value.var=c("valvar1", "valvar2"))

R：在单个因子变量上扩展多个列

2 个答案: