基于另一列的分组扩展列（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 等。有什么想法吗？

更新

最初的问题已解决。跟进：

使用tidyr::spread 方法，有没有办法将group_size 限制为N，以便在传播时，最多从每个组中获取N 值？

Answer 1

我们在按“user_id”分组后创建一个序列列，然后将spread从“长”到“宽”。

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

---

或者我们可以使用data.table中的dcast

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