阿鲁莱斯维兹互动情节-闪亮R
我想为关联挖掘创建一个闪亮的web应用程序。我想做的一件事是从arulesVIZ包中实现一个交互式绘图 因此,我有以下代码:阿鲁莱斯维兹互动情节-闪亮R,r,shiny,arules,R,Shiny,Arules,我想为关联挖掘创建一个闪亮的web应用程序。我想做的一件事是从arulesVIZ包中实现一个交互式绘图 因此,我有以下代码: library(shiny) library(DT) library(data.table) library(arules) library(arulesViz) df_transac <-read.table("C:/Users/pauljacq/Desktop/splits/Association fil
library(shiny)
library(DT)
library(data.table)
library(arules)
library(arulesViz)
df_transac <-read.table("C:/Users/pauljacq/Desktop/splits/Association files/ns_transactions.csv",header=T, sep=",")
t<-read.transactions("C:/Users/pauljacq/Desktop/splits/Associationfiles/ns_transactions.csv", format='single',cols=c('shipment_archive_id','ASIN'),sep=",")
rules_t <- apriori(t,
parameter = list(support = 0.0001, confidence = 0.0001, minlen=2, maxlen=5, ext=TRUE ),
control = list(verbose=TRUE))
rules_table<-data.table(lhs=labels(lhs(rules_t)), rhs=(labels(rhs(rules_t))), quality(rules_t))
ui<- basicPage(
mainPanel(
tabsetPanel(
tabPanel("File", DT::dataTableOutput("df_transac")),
tabPanel("Rules", DT::dataTableOutput("rules")),
tabPanel("Graph", plotOutput("graph"))
)
)
)
server <- function(input, output) {
output$df_transac = DT::renderDataTable({
df_transac
})
output$rules = DT:: renderDataTable({
rules_table
})
output$graph = renderPlot({
plot(rules_t,method="scatter",interactive=T)
})
}
shinyApp(ui=ui,server=server)
然而,当我
plot(rules_t,method='scatter",interactive=T)
我有以下错误:
Error in convertUnit: 'x' argument must be a unit object
任何解决方案、想法或对以前工作的引用都是非常受欢迎的:)发生错误的原因是,shiny似乎没有将单击位置传递到函数
网格。定位器来自软件包网格。安装最新的arulesViz版本并使用
plot(rules_t, method = "scatter", engine = "htmlwidget")
相反。这将创建一个htmlwidget,在shiny中应该可以正常工作。感谢您的回答。但是,该小部件填充在my RStudio的查看器部分。不确定如何将其嵌入实际应用程序中?更新:工作解决方案,以便engine=“htmlwidget”技巧起作用。虽然我需要从renderPlot/plotOutput更新为renderPlotly/plotlyOutput。非常感谢@Michael Hahsler
plot(rules_t, method = "scatter", engine = "htmlwidget")