0
私は、関連マイニングのための光沢のあるWebアプリケーションを作成したいと思います。私がしたいことの一つは、パッケージarulesVIZからインタラクティブなプロットを実装することです。私はしかしArulesVIZインタラクティブプロット - Shiny R
plot(rules_t,method='scatter",interactive=F)
を持っているとき、私は、私は次のエラーを持っている
plot(rules_t,method='scatter",interactive=T)
を持っているとき
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)
アプリは、素晴らしい作品:
は、だから私は、次のコードを持っています:
Error in convertUnit: 'x' argument must be a unit object
どれソリューション、アイデア、または前の仕事への参照は非常に光沢のあるパッケージgrid
から関数grid.locator
の上の場所をクリックして通過していないようですので、エラーが発生し
あなたの答えをありがとう。しかし、私のRStudioのViewerセクションにはウィジェットが配置されています。実際のアプリに埋め込む方法がわからない –
更新:WORKING SOLUTION エンジン= "htmlwidget"トリックが機能しました。 renderPlot/plotOutputからrenderPlotly/plotlyOutputに更新する必要がありました。 ありがとう@Michael Hahsler –