如何在 r 中使用传单在地图弹出窗口中显示词云

如何解决如何在 r 中使用传单在地图弹出窗口中显示词云

当用户在地图中点击该状态时，我试图在弹出窗口中绘制该状态的子类别的词云。

ui <- bootstrapPage(

   leafletoutput("mymap",height = 300)

)

server <- function(input,output,session){
output$mymap <- renderLeaflet({
    leaflet(Sales) %>%
          addTiles() %>%
          addCircles(lng = ~longitude,lat = ~latitude,popup= popupGraph(p),weight = 3,radius = ~Sales,color=~cof(newdata$Category),stroke = TRUE,fillOpacity = 0.8)) )
  
})

shinyApp(ui = ui,server = server)

这是我的传单代码，我在 r Shiny 中使用过。任何人都可以建议我如何在用户单击地图上的状态时在弹出窗口中呈现 wordcloud？我不知道如何在 popupGraph(p) 中为 word-cloud 编写函数“p”，但我想将它作为这样的参数传递，其中 p 是 word-cloud