Формат данных формата транзакции R-convert в формате корзины для анализа рыночной корзины

Question

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

R-convert transaction format dataset to basket format for sequence mining

Arules Sequence Mining in R

How to handle "argument 'incomparables != FALSE' is not used (yet)"?

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

Мой входной файл представляет собой 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') 

Надеется, что это помогает.