r-通过每个id中的唯一值来重塑变量

Question

嗨，我一直在努力将我的数据重塑为宽数据。

id story_id
1   123
1   123
1   123
1   123
2   213
2   213
2   213
3   123 
3   123
3   123

但我得到的只是：

id
1
2
3

我使用的代码：

data=reshape(data, idvar="id", timevar="story_id", direction="wide")

所需输出为

id  story_id.123 story_id.213
1    123          NA
2    NA           213
3    123          NA

请告诉我问题出在哪里。

Answer 1

以下作品：

library(data.table) ; setDT(DF)
dcast(unique(DF), id ~ story_id, value.var = "story_id")

Answer 2

这里有一个使用spread 的选项

library(dplyr)
library(tidyr)
df1 %>% 
  distinct %>% 
  spread(story_id, story_id) %>% 
  setNames(., c(names(.)[1], paste0("story_id", names(.)[-1])))
#    id story_id123 story_id213
#1  1         123          NA
#2  2          NA         213
#3  3         123          NA