r - 将列值拆分为 R 中的单独列

Question

我想将未知值的数据框分成多个值。例如:

示例数据:

df <- data.frame(ID = c(1, 2, 3, 4, 5, 6, 7),
                  var1 = c('a', 'a', 'b', 'b', 'b','c','d'))

> df
  ID  var1
  1   'a'
  2   'a'
  3   'b'
  4   'b'
  5   'b'
  6   'c'
  7   'd'

我想返回:

df
  ID   a    b    c    d
  1   'a'   NA   NA   NA
  2   'a'   NA   NA   NA
  3    NA  'b'   NA   NA
  4    NA  'b'   NA   NA
  5    NA  'b'   NA   NA
  6    NA   NA  'c'   NA
  7    NA   NA   NA  'd'

这可能应该非常简单，但对于我来说我无法弄清楚，我在这里的搜索工作得出了本质上相似但不完全是我需要的答案。

谢谢!

Answer 1

您可以对df$var 的唯一值使用sapply:

cbind.data.frame(df[1], 
                 sapply(unique(df$var), function(x) ifelse(x == df$var1, x, NA)))

输出

     ID a     b     c     d    
1     1 a     NA    NA    NA   
2     2 a     NA    NA    NA   
3     3 NA    b     NA    NA   
4     4 NA    b     NA    NA   
5     5 NA    b     NA    NA   
6     6 NA    NA    c     NA   
7     7 NA    NA    NA    d