Kelime bulutu Shiny uygulaması
Tüm Savaş Sanatı kitabının metnini içeren artofwar adlı örnek bir veri kümesi sağlandı. Kitabın ilk ve son birkaç dizesini görmek için head(artofwar) veya tail(artofwar) çalıştırarak verilen Savaş Sanatı metnini inceleyebilirsin.
Videoda bahsedildiği gibi, kelime bulutları daha önce gördüğün bir çıktı türü olmadığından, yeni bir çıktı ve render fonksiyonu çifti gerekir: wordcloud2Output() ve renderWordcloud2(). Bu çıktı fonksiyonları wordcloud2 paketinden gelir.
Bu egzersiz
Vaka Çalışmaları: R ile Shiny Kullanarak Web Uygulamaları Geliştirme
kursunun bir parçasıdırEgzersiz talimatları
create_wordcloud() fonksiyonu, artofwar veri kümesi ve gerekli tüm paketler çalışma alanında hazır.
- UI'a,
cloudoutputId değerine sahip bir kelime bulutu çıktı yer tutucusu ekle. - Kelime bulutu nesnesini oluştur ve
outputlistesindeki doğru öğeye ata (satır 11).
Bu arada, create_wordcloud() senin için tanımladığımız bir fonksiyon. Kendi bilgisayarındaki RStudio'da çalıştıramazsın. Göz atmak istersen konsola create_wordcloud yaz.
Uygulamalı interaktif egzersiz
Bu örnek kodu tamamlayarak bu egzersizi bitirin.
# 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)