r
  • shiny
  • shinyapps
  • arules
  • 2017-09-14 13 views 0 likes 
    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の上の場所をクリックして通過していないようですので、エラーが発生し

    答えて

    0

    :)を歓迎しています。最新のarulesVizバージョンをインストールし、代わりに

    plot(rules_t, method = "scatter", engine = "htmlwidget") 
    

    を使用してください。これにより、htmlウィジェットが作成され、光沢のある状態で正常に動作するはずです。

    +0

    あなたの答えをありがとう。しかし、私のRStudioのViewerセクションにはウィジェットが配置されています。実際のアプリに埋め込む方法がわからない –

    +0

    更新:WORKING SOLUTION エンジン= "htmlwidget"トリックが機能しました。 renderPlot/plotOutputからrenderPlotly/plotlyOutputに更新する必要がありました。 ありがとう@Michael Hahsler –

    関連する問題