开始使用免费开始使用

修改词云参数

回顾一下，create_wordcloud() 有两个可选参数：num_words，一个整数，用于指定要绘制的最大词数；以及 background，用于指定图像的背景颜色。

目前，这个 Shiny 应用始终输出使用完全相同参数的词云。既然生成词云的函数支持这两个参数，不加以利用就太可惜了。这些参数应该通过 Shiny 输入让用户自行调整。

您的任务是向 Shiny 应用添加两个输入，并将这两个输入的值分别用作词云的 num_words 和 background 参数。

本练习是课程的一部分

案例研究：使用 R 的 Shiny 构建 Web 应用

查看课程

练习说明

所有必需的包（包括 colourpicker）都已加载到您的工作区。具体要求：

  • 添加一个 ID 为 "num" 的数字输入，默认值为 100，最小值为 5。
  • 添加一个颜色输入（来自 colourpicker 包），ID 为 "col"，标签为 "Background color"，默认颜色为 "white"。
  • 使用这两个输入的取值来设置 create_wordcloud() 的参数（第 16 行）。

交互式实操练习

通过完成这段示例代码来试试这个练习。

ui <- fluidPage(
  h1("Word Cloud"),
  # Add a numeric input for the number of words
  ___(inputId = ___, label = "Maximum number of words",
      value = ___, min = ___),
  # Add a color input for the background color
  ___(___),
  wordcloud2Output("cloud")
)

server <- function(input, output) {
  output$cloud <- renderWordcloud2({
    # Use the values from the two inputs as
    # parameters to the word cloud
    create_wordcloud(artofwar,
                     num_words = ___, background = ___)
  })
}

shinyApp(ui = ui, server = server)
编辑并运行代码