R arules подготавливает набор данных для транзакций

Я подготовил набор данных для чтения в виде транзакций с использованием пакета arules в R. Однако одна из моих предварительных обработок данных вызывает проблему, когда я использую команду itemFrequencyplot, в частности, элемент с самой высокой частотой - " ". У кого-нибудь есть предложения по решению этой проблемы?

Исходные данные:

data <- as.data.frame(matrix(NA, nrow = 10, ncol = 3))
colnames(data) <- c("Customer", "OrderDate", "Product")
data$Customer <- c("John", "John", "John", "Tom", "Tom", "Tom", "Sally", "Sally", "Sally", "Sally")
data$OrderDate <- c("1-Oct", "2-Oct", "2-Oct", "2-Oct","2-Oct", "2-Oct", "3-Oct", "3-Oct", "3-Oct", "3-Oct")
data$Product <- c("Milk", "Eggs", "Bread", "Butter", "Eggs", "Milk", "Bread", "Butter", "Eggs", "Wine")

Я делаю следующее преобразование

library(reshape2)
library(dplyr)

newdata <- data  %>% 
  group_by(Customer, OrderDate) %>%
  mutate(ProductValue = paste0("Product", 1:n()) ) %>%
  dcast(Customer + OrderDate ~ ProductValue, value.var = "Product") %>%
  arrange(OrderDate)

newdata[is.na(newdata)] <- " "
newdata <- newdata[ , 3:6]
newdata[sapply(newdata, is.character)] <- lapply(newdata[sapply(newdata, is.character)], as.factor) #converting is.character columns into as.factor

использовал write.table для создания файла csv без имен столбцов для чтения через правила

write.table(newdata, "transactions.csv", row.names = FALSE, col.names = FALSE, sep = ",")

использование пакета arules для чтения CSV-файла в виде транзакций

library(arules)

transactiondata <- read.transactions("transactions.csv", sep = ",", format = "basket")

не работает - выдает ошибку и после прочтения предыдущих запросов на stackoverflow я смог решить ее следующим образом

transactiondata <- read.transactions("transactions.csv", sep = ",", format = "basket", rm.duplicates = TRUE)

itemFrequencyPlot(transactiondata, topN = 5)

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


r transactions arules
person xineers    schedule 30.10.2016    source источник
comment
Какие версии пакетов вы используете? Когда я рисую частоту предметов, я получаю яйца, хлеб, масло, молоко и вино.   -  person Roman Luštrik    schedule 30.10.2016
comment
Я обновился с v1.2 и v1.5, и это решило проблему.   -  person xineers    schedule 30.10.2016

Ответы (1)


arrow_upward
1
arrow_downward

Я бы сделал это так (следуя примерам на странице руководства для транзакций):

data_list <- split(data$Product, paste(data$OrderDate, data$Customer))
trans <- as(data_list, "transactions")
inspect(trans)

    items                    transactionID
[1] {Milk}                   1-Oct John   
[2] {Bread,Eggs}             2-Oct John   
[3] {Butter,Eggs,Milk}       2-Oct Tom    
[4] {Bread,Butter,Eggs,Wine} 3-Oct Sally

itemFrequencyPlot(trans, topN = 5)

Надеюсь это поможет!

person Michael Hahsler    schedule 30.10.2016