聚合复杂数组

Question

下面是我目前拥有的一个较短的数据框。它由重复的 ID 号、购买商品的月份以及商品是什么组成：

id <- c('100','100','200','200','300','300','300','300')
month <- c(1,1,6,8,1,1,4,7)
purchase <- c('Apple','Apple','Banana','Orange','Apple','Apple','Pear','Melon')

df <- data.frame(id,month,purchase)

我正在尝试使用聚合函数连接此数据框，以便我可以提取个人进行的第一次和第二次购买。

我想要return这样的东西

id   combined purchase
100  [(1,'Apple'),(1,'Apple')]
200  [(6,'Banana'),(8,'Orange')]
300  [(1,'Apple'),(1,'Apple'),(4,'Pear'),(7,'Melon')]

我可以相应地编制索引。

可能有更简单的方法，但我不确定。我将不胜感激任何反馈和帮助。谢谢！

Answer 1

我们可以使用 toJSON 来自 jsonlite

library(tidyverse)
library(jsonlite)
df %>%
   group_by(id) %>% 
   summarise(combinedpurchase = list(toJSON(unname(data.frame(month, 
                as.character(purchase))))))

聚合复杂数组

Aggregating Complex Array

r

concatenation

aggregation