Expanding Spalte basierend auf einer anderen Spalte der Gruppierung (dplyr/tidyr)

Question

Ich versuche, eine Tabelle wie folgt zu konvertieren:

# A tibble: 10 x 2 
    user_id  pred 
    <int>  <fctr> 
1  27 electronics 
2  27  home 
3  38  health 
4  60 electronics 
5  60  beauty 
6  92  home 
7  92 electronics 
8  106  health 
9  117  home 
10  117  women 

zu einer, die wie folgt aussieht:

# A tibble: 6 x 3 
    user_id  pred_1  pred_2 
    <dbl>  <chr>  <chr> 
1  27 electronics  home 
2  38  health   NA 
3  60 electronics  beauty 
4  92  home electronics 
5  106  health   NA 
6  117  home  women 

dh eine Reihe pro user_id und eine Erweiterung der pred Spalte in pred_1, pred_2, etc. Irgendwelche Ideen?

UPDATE

Erste Frage gelöst wurde. Follow-up:

Mit dem tidyr::spread Verfahren gibt es eine Möglichkeit, die group_size-N, so dass, um die Kappe beim Streuen, dauert es höchstens N Werte aus jeder Gruppe?

Answer 1

Wir erstellen eine Sequenzspalte nach der Gruppierung von 'user_id' und dann spread von 'lang' bis 'breit'.

library(dplyr) 
library(tidyr) 
df1 %>% 
    group_by(user_id) %>% 
    mutate(id = paste0("pred_", row_number()), 
      id = factor(id, levels = unique(id))) %>% 
    spread(id, pred) 
# user_id  pred_1  pred_2 
#  <int>  <chr>  <chr> 
#1  27 electronics  home 
#2  38  health  <NA> 
#3  60 electronics  beauty 
#4  92  home electronics 
#5  106  health  <NA> 
#6  117  home  women 

---

Oder wir dcast von data.table

library(data.table)#1.9.7+ 
dcast(setDT(df1), user_id~paste0("pred_", rowid(user_id)), value.var = "pred")