R-конвертировать набор данных формата транзакции в формат корзины для анализа корзины рынка

Question

Прежде всего, я хотел бы уточнить, что перед публикацией этого запроса я ссылался на следующие ссылки на этом сайте, чтобы найти ответ, но не смог понять, возможно, потому что они решают разные проблемы или потому что я новичок в R.

R-конвертировать набор данных формата транзакции в формат корзины для анализа последовательности

Arules Sequence Mining в R

Как обрабатывать "аргумент" несопоставимый!= ЛОЖЬ "не используется (пока)"?

Я хочу сделать Анализ Корзины Рынка с моим набором данных. Мой набор данных находится в формате транзакции (как описано ниже), и я хочу преобразовать его в формат корзины (как описано ниже).

Мой входной файл представляет собой CSV-файл с набором данных в формате транзакции следующим образом:

TransactionID ProductID
A              1
A              2
B              1
C              3
A              4
B              3

Я хочу, чтобы мой выходной файл был CSV-файлом в следующем формате:

1 2 4
1 3
3

где {1,2,4} - продукты, купленные в транзакции A, {1,3}, купленные в B и так далее.

Можете ли вы сказать мне код R, чтобы сделать это? Я попытался с помощью следующего кода, но он не работает. Мой входной файл называется "D01_modified1.csv".

library(arulesSequences)
# Read CSV into R
MyData <- read.csv(file="D01_modified1.csv", header=TRUE, sep=",")
s <- unique(MyData,incomparables = FALSE, fromLast = FALSE,paste0("ProductID"))
# Write CSV in R
write.csv(s, file = "MyOutput.csv",row.names=FALSE, na="")

Это дает следующую ошибку:

Error: argument 'incomparables != FALSE' is not used (yet)

Также я не уверен, даст ли следующий код желаемый результат или нет.

s <- unique(MyData,incomparables = FALSE, fromLast = FALSE,paste0("ProductID"))

Пожалуйста, руководство. Ждем вашей помощи. Большое спасибо...

Answer 1

Меня устраивает

df_fact <- data.frame(lapply(MyData,as.factor))
df_trans <- as(df_fact, 'transactions')

Надеюсь, поможет.