cancel
Showing results for 
Search instead for 
Did you mean: 
Reply
Highlighted
manderson727 Frequent Visitor
Frequent Visitor

Published report with R script using Apriori unexpected results

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."

2 REPLIES 2
Community Support Team
Community Support Team

Re: Published report with R script using Apriori unexpected results

Hi @manderson727,

 

Could you get expected result without any error in Power BI service if removig the "Sort" in R script?

 

Regards,

Yuliana Gu

Community Support Team _ Yuliana Gu
If this post helps, then please consider Accept it as the solution to help the other members find it more quickly.
manderson727 Frequent Visitor
Frequent Visitor

Re: Published report with R script using Apriori unexpected results

ah I should have tested that. It does work!

 

But why am I not able to see the 'Count' field on PowerBI service?