通过每个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