Tambahkan judul plot: masukan teks
Di Shiny, begitu pengguna mengubah nilai suatu input, Shiny segera menyediakan nilai saat ini dari input tersebut kepada Anda di server melalui argumen input pada fungsi server. Anda dapat mengambil nilai input apa pun menggunakan input$<inputId>.
Untuk menetapkan nilai awal bawaan pada masukan teks, gunakan argumen value.
Latihan ini adalah bagian dari kursus
Studi Kasus: Membangun Aplikasi Web dengan Shiny di R
Petunjuk latihan
Aplikasi Shiny yang diberikan membuat plot PDB per kapita vs harapan hidup negara-negara dalam himpunan data gapminder. Tugas Anda adalah menambahkan masukan teks yang memungkinkan pengguna mengubah judul plot. Secara spesifik:
- Tambahkan masukan teks ke UI dengan ID "title", label "Title", dan nilai bawaan "GDP vs life exp".
- Dalam kode server, buat judul plot selalu mencerminkan nilai saat ini dari masukan title dengan menempatkan judul di dalam fungsi
ggtitle()(baris 24).
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# Load the ggplot2 package for plotting
library(ggplot2)
# Define UI for the application
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
# Add a title text input
___(___, ___, ___)
),
mainPanel(
plotOutput("plot")
)
)
)
# Define the server logic
server <- function(input, output) {
output$plot <- renderPlot({
ggplot(gapminder, aes(gdpPercap, lifeExp)) +
geom_point() +
scale_x_log10() +
# Use the input value as the plot's title
ggtitle(___)
})
}
# Run the application
shinyApp(ui = ui, server = server)