有没有办法从 wordcloud 或 comparison.cloud 中保存数据

Question

我正在尝试保存在 wordcloud 或 comparison.cloud（或 quanteda verison textplot_wordcloud）中使用的数据，但是当我将其保存到变量时我注意到了(t1 = wordcloud(x))，保存为NULL.

我的目标是获取一个组的独特或关键词，并在 Shiny 中构建一个交互式图，当点击一个词时，它会显示 kwic() 的输出并显示该组的上下文关键字。

ui <- fluidPage(# App title ----
                theme = shinytheme('flatly'),
                titlePanel("Employtics"),

                # Sidebar layout with input and output definitions ----
                sidebarLayout(
                  # Sidebar panel for inputs ----
                  sidebarPanel(
                    # Input: Select a file ----
                    fileInput("FileInput", "Choose file"),

                    # Input: Horizontal Line ----
                    tags$hr(),


                    uiOutput('textField'),
                    uiOutput('docIdField')
                  ),

                  # Main panel for displaying outputs ----
                  mainPanel(tabsetPanel(     tabPanel(
                          'Word Clouds',
                          fluidRow(plotOutput(
                            'wordcloud', width = "100%", height = '800'))         )
            )
            ))

    output$wordcloud = renderPlot({
        d1 = dCorp()

        withProgress(message = 'Building Wordclouds',
                     detail = 'This may take a while...',expr = 0)
                       if (is.null(input$selectGroup2)) {
                         textplot_wordcloud(
                           d1,
                           max.words = 15
                         )

                       }
                       else{
                         textplot_wordcloud(d1,
                                            comparison = T,
                                            max.words = 15,
                                            title.size = 1)
                       }

      })
shinyApp(ui,server)

Answer 1

简短的回答是否定的，textplot_wordcloud() 没有 return 数据对象。

建议：

使用textstat_keyness()按组获取差异出现的单词。这 return 是一个 data.frame，可以满足您的目的。然后您可以将其用作绘图的输入，并可能用于 wordcloud2。（请参阅下一条建议。）
考虑 wordcloud2 包，它也有 Shiny（和交互支持）。请参阅 https://github.com/quanteda/quanteda/issues/1218 进行讨论。

有没有办法从 wordcloud 或 comparison.cloud 中保存数据

is there a way to save the data from wordcloud or comparison.cloud

r

shiny

quanteda