Расширение колонки на основе другого столбца группировки (dplyr/tidyr)

Question

Я пытаюсь преобразовать таблицу, как это:

# 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 

на тот, который выглядит следующим образом:

# 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 

т.е. ряд за user_id и расширение колонки pred до pred_1, pred_2 и т. д. Любые идеи?

UPDATE

Первоначальный вопрос был решен. Последующее:

Используя метод tidyr::spread, есть способ, чтобы увенчать group_size к N так, что, когда распространение, оно принимает в большинстве N значений из каждой группы?

Answer 1

Мы создаем столбец последовательностей после группировки 'user_id', а затем spread от 'long' до 'wide'.

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 

---

Или мы можем использовать dcast из data.table

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