市場バスケット分析のためにRでデータを並べ替える

Question

データはcsv形式で入手できます。

データ形式は次のとおりです。対応する列

Receipt_no Product 
A1 Apple 
A1 Banana 
A1 Orange 
A2 Pineapple 
A2 Jackfruit 
A3 Cola 
A3 Tea 

内の1つの列内の番号領収書と製品で、私は、カンマで区切られた1行の領収書番号と製品名である

A1 , Apple, Banana, Orange 
A2 , Pineapple, Jackfruit 
A3 , Cola, Tea 

としてそれらを再配置します。データが大きいので、Rで同じデータを並べ替える必要があります。

親切

感謝を助けます。

よろしく、 Nithish基地R使用

Answer 1

基地R、

dplyrを使用

aggregate(Product ~ Receipt_no, df, paste, collapse = ',') 

、

df %>% 
    group_by(Receipt_no) %>% 
    summarise(new = paste(Product, collapse = ',')) 

Answer 2

：

u <- as.vector(unique(df$Receipt_no)) 
as.list(sapply(u, function(x) paste0(x, ", ", paste0(subset(df$Product, df$Receipt_no==x), collapse = ", ")))) 

# $A1 
# [1] "A1, Apple, Banana, Orange" 

# $A2 
# [1] "A2, Pineapple, Jackfruit" 

# $A3 
# [1] "A3, Cola, Tea" 

をDATA

df <- structure(list(Receipt_no = structure(c(1L, 1L, 1L, 2L, 2L, 3L, 
3L), .Label = c("A1", "A2", "A3"), class = "factor"), Product = structure(c(1L, 
2L, 5L, 6L, 4L, 3L, 7L), .Label = c("Apple", "Banana", "Cola", 
"Jackfruit", "Orange", "Pineapple", "Tea"), class = "factor")), .Names = c("Receipt_no", 
"Product"), class = "data.frame", row.names = c(NA, -7L))