Ứng dụng Shiny tạo word cloud
Bạn được cung cấp một bộ dữ liệu mẫu tên artofwar, chứa toàn bộ văn bản của cuốn sách Binh pháp Tôn Tử (Art of War). Bạn có thể xem nhanh văn bản này bằng cách chạy head(artofwar) hoặc tail(artofwar) để thấy vài đoạn đầu và cuối của sách.
Như đã đề cập trong video, vì word cloud không phải là một loại đầu ra bạn đã thấy trước đây, nên nó cần một cặp hàm output và render mới: wordcloud2Output() và renderWordcloud2(). Các hàm output này có trong gói wordcloud2.
Bài tập này là một phần của khóa học
Nghiên cứu tình huống: Xây dựng ứng dụng web với Shiny trong R
Hướng dẫn bài tập
Hàm create_wordcloud(), bộ dữ liệu artofwar, và tất cả các gói cần thiết đã có sẵn trong môi trường làm việc của bạn.
- Thêm một phần giữ chỗ cho đầu ra word cloud vào UI, với outputId là
cloud. - Render đối tượng word cloud và gán nó cho mục đúng trong danh sách
output(dòng 11).
Nhân tiện, create_wordcloud() là hàm chúng tôi đã định nghĩa sẵn cho bạn. Bạn sẽ không thể chạy nó trong RStudio trên máy tính của mình. Nếu muốn xem, hãy gõ create_wordcloud trong console.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
# Define UI for the application
ui <- fluidPage(
h1("Word Cloud"),
# Add the word cloud output placeholder to the UI
___(outputId = "cloud")
)
# Define the server logic
server <- function(input, output) {
# Render the word cloud and assign it to the output list
output$___ <- ___({
# Create a word cloud object
create_wordcloud(artofwar)
})
}
# Run the application
shinyApp(ui = ui, server = server)