Question

연관 마이닝을위한 반짝이는 웹 응용 프로그램을 만들고 싶습니다. 내가하고 싶은 일 중 하나는 arulesVIZ 패키지에서 대화 형 플롯을 구현하는 것입니다. 나는 그러나

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) 

앱이 잘 작동 :

그래서 나는 다음과 같은 코드가 있습니다 :

이 반짝 패키지 grid에서 기능 grid.locator에게 위치를 클릭 통과하지 않는 것 때문에3210

는 아이디어는, 또는 이전 작업에 참조 오류가 발생합니다

Answer 1

: 매우 환영 솔루션입니다 모든. 최신 arulesViz 버전을 설치하고 대신

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

을 사용하십시오. 이렇게하면 htmlwidget이 생성되어 잘 작동합니다.