확장 열

Question

나는이 같은 테이블을 변환하기 위해 노력하고있어 :

# 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 

즉 행 :

# 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 

다음과 같습니다 하나 user_id에 따라 pred 열을 pred_1, pred_2 등으로 확장 할 수 있습니다. 초기 문제가 해결되었다

UPDATE. 후속 : 확산 때

에서, tidyr::spread 방법을 사용하여 group_size 있도록 N에 상한선을 할 수있는 방법이, 각 그룹에서 가장 N 값에 소요?

Answer 1

'user_id'로 그룹화 한 후 시퀀스 열을 만들고 'long'에서 'wide'까지 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

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