我正在尝试保存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)
简短的回答是否定的,textplot_wordcloud()
不会返回数据对象。
建议:
textstat_keyness()
按组获取差异出现的单词。这将返回一个适用于您的目的的data.frame。然后,您可以将其用作绘图的输入,也可以用于wordcloud2。 (见下一个建议。)