My code below displays a table with Apriori results. I'm able to see the rules, support, confidence, lift, and count in PowerBI Desktop. I sort by count which works in PowerBI Desktop. When I publish this report to the web, the column count is no longer displayed, and the script fails because of the sort. Any thoughts?
rules_by_count <- sort(basket_rules, by = "count")
#Main
library(Matrix)
library(arules)
library(plyr)
library(dplyr)
library(gridExtra)
itemList <- dataset
#itemList <- read.csv("ItemListAll.csv", header=TRUE, sep=",")
# Converting to a Matrix ####
itemList$const = TRUE
# Remove duplicates
dim(itemList)
orders <- unique(itemList)
dim(itemList)
# Need to reshape the matrix
itemList_max_prep <- reshape(data = itemList,
idvar = "SALESID",
timevar = "ITEMNAME",
direction = "wide")
# Drop the SALESID
itemList_matrix <- as.matrix(itemList_max_prep[,-1])
# Clean up the missing values to be FALSE
itemList_matrix[is.na(itemList_matrix)] <- FALSE
# Clean up names
colnames(itemList_matrix) <- gsub(x=colnames(itemList_matrix),
pattern="const\\.", replacement="")
itemList_trans <- as(itemList_matrix,"transactions")
#inspect(itemList_trans)
basket_rules <- apriori(itemList_trans, parameter = list(sup=0.00005,conf=0.75,target="rules", maxlen=3, maxtime=20))
rules_by_count <- sort(basket_rules, by = "count")
df_basket <- as(rules_by_count,"data.frame")
df_basket$support <- ceiling(df_basket$support * 100)
df_basket$confidence<- ceiling(df_basket$confidence * 100)
df_basket$lift<- round(df_basket$lift, digits = 2)
grid.table(head(df_basket, n = 5L))I get this error. "Error in .local(x, decreasing, ...) : Unknown interest measure to sort by."
