重塑tidyr数据

Question

我想重塑一个非常简单的数据，却找不到方法

我尝试过这个解决方案：Transposing data frames和所有相关的解决方案，但没有成功。

我有一个整洁的数据框，它看起来像这样：

    df<-rbind(c('a','x1'),c('a','x2'),c('a','x3'),
    c('b','x6'),c('b','x7'))
    colnames(df)<-c('var','val')

并试着

library(dplyr)
library(tidyr)
df %>%
  gather(var, val, 2:ncol(df)) %>%
  spread_(names(data)[1], "val")

我想要一个看起来像：

a   x1   x2   x3  
b   x6   x7   NA

但我知道这个错误

错误:每一行输出必须由唯一的键组合标识。

Answer 1

在转换成data.frame之后，我们需要一个按序列分组(OP的例子是一个matrix)

library(dplyr)
library(tidyr)
library(stringr)
df %>% 
   as.data.frame %>%
   group_by(var) %>% 
   mutate(rn = str_c("col", row_number()))  %>% 
   spread(rn, val)
# A tibble: 2 x 4
# Groups:   var [2]
#  var   col1  col2  col3 
#  <fct> <fct> <fct> <fct>
#1 a     x1    x2    x3   
#2 b     x6    x7    <NA>