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

问题描述 投票:0回答:1

我正在尝试保存wordcloudcomparison.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)
r shiny quanteda
1个回答
1
投票

简短的回答是否定的,textplot_wordcloud()不会返回数据对象。

建议:

  1. 使用textstat_keyness()按组获取差异出现的单词。这将返回一个适用于您的目的的data.frame。然后,您可以将其用作绘图的输入,也可以用于wordcloud2。 (见下一个建议。)
  2. 考虑wordcloud2包,它也有Shiny(和交互式支持)。请参阅https://github.com/quanteda/quanteda/issues/1218进行讨论。
© www.soinside.com 2019 - 2024. All rights reserved.