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
v-yulgu-msft Super Contributor
Super Contributor

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?

Helpful resources

Announcements
Community News & Announcements

Community News & Announcements

Get your latest community news and announcements.

Summit North America

Power Platform Summit North America

Register by September 5 to save $200

Virtual Launch Event

Microsoft Business Applications Virtual Launch Event

Watch the event on demand for an in-depth look at the new innovations across Dynamics 365 and the Microsoft Power Platform.

MBAS Gallery

Watch Sessions On Demand!

Continue your learning in our online communities.

Top Kudoed Authors
Users Online
Currently online: 410 members 4,089 guests
Please welcome our newest community members: