데이터 프레임을 정렬하는 방법은 무엇입니까?

Question

Product_Id 및 FrontOfficeUser_Id가 포함 된 데이터 프레임이 있습니다.

 Data_Achat=data.frame(ID_Achat,ID_Prod) 
    > Data_Achat[1:10,] 
    ID_Achat ID_Prod 
1  1349  433 
2  1349  405 
3  1349  451 
4  4890  405 
5  4890  405 
6  4890  416 
7  4890  416 
8  4890  388 
9  4890  464 
10  4890  416 

은 그 때 나는 각각 ID_Achat 및 해당 ID_Prod 라인에 새로운 데이터 프레임을 보여주는를 싶어. 다른 말로하면이 예를 들면 다음과 같이하고 싶습니다.

1 1349 433 405 451 
2 4890 405 405 416 416 388 464 416 

어떻게 결과를 얻을 수 있습니까?

감사합니다.

Answer 1

는 여기 data.frame에 데이터를 입력하는 방법은 다음과 같습니다

split_data <- split(df$ID_Prod, df$ID_Achat) 
pasted <- lapply(split_data,paste,collapse=" ") 
as.data.frame(do.call(rbind,pasted)) 
           V1 
1349     433 405 451 
4890 405 405 416 416 388 464 416 

편집

여기에 ID 열 돌아갈 방법은 다음과 같습니다

split_data <- split(df$ID_Prod, df$ID_Achat) 
pasted <- lapply(split_data,paste,collapse=" ") 
df <- as.data.frame(do.call(rbind,pasted)) 
df_final <- cbind(ID_Achat=rownames(df),df) 
colnames(df_final)[2] <- "ID_Prod" 
df_final 

    ID_Achat      ID_Prod 
1349  1349     433 405 451 
4890  4890 405 405 416 416 388 464 416 

Answer 2

피에르가 좋은있다을 대답. 당신은 자신의 열을로 그 각각을 원하는 경우에, 당신은뿐만 아니라이를 사용할 수 있습니다

library(dplyr) 
library(tidyr) 

Data_Achat %>% 
     group_by(ID_Achat) %>% 
     mutate(rn = row_number()) %>% 
     ungroup() %>% 
     spread(rn, ID_Prod) 

편집 :

Data_Achat <- data.frame(ID_Achat = c(rep(1349, 3), rep(4890, 7)), ID_Prod = c(433, 405, 451, 405, 405, 416, 416, 388, 464, 416)) 

    Data_Achat2 <- Data_Achat %>% 
+  group_by(ID_Achat) %>% 
+  mutate(rn = row_number()) %>% 
+  ungroup() %>% 
+  spread(rn, ID_Prod) 

    > Data_Achat2[1,] 
# A tibble: 1 x 8 
    ID_Achat `1` `2` `3` `4` `5` `6` `7` 
    <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> 
1  1349 433 405 451 NA NA NA NA