通過每個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