數據樣式：
group value
A 1
A 2
A 3
B 5
B 6
C 7
代碼：
library(readxl)
library(arules)
df <- read_xlsx('E:/data.xlsx',sheet = "Sheet1")
df_1 <- as(split(df$group, df$value),"transactions")
#轉成數據框類型
df_2 <- as(df_1, "data.frame")
#去掉大括號
library(stringr)
df_2$items <- str_sub(df_2$items, start = 2L, end = str_length(df_2$items) - 1)
結果樣式：
group value
A 1,2,3
B 5,6
C 7