Tambahkan warna ke plot Anda: radio button
Radio button digunakan ketika Anda ingin menyajikan beberapa opsi kepada pengguna dan meminta mereka memilih satu. Komponen ini memiliki parameter choices yang menentukan berbagai opsi yang dapat dipilih pengguna, serta argumen selected yang menentukan opsi mana yang dipilih pada awalnya. Perhatikan bahwa tidak ada parameter value, meskipun Anda dapat menganggap selected memiliki peran yang serupa.
Latihan ini adalah bagian dari kursus
Studi Kasus: Membangun Aplikasi Web dengan Shiny di R
Petunjuk latihan
Kode untuk aplikasi Shiny dari latihan sebelumnya telah disediakan. Tugas Anda adalah menambahkan radio button yang memberikan pilihan warna bagi pengguna untuk digunakan pada plot. Secara khusus:
- Tambahkan radio button ke UI dengan ID "color", label "Point color", dan empat pilihan: "blue", "red", "green", "black".
- Tambahkan kode ke server sehingga titik-titik pada plot akan memiliki warna yang dipilih di radio button (baris 22).
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# Define UI for the application
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
textInput("title", "Title", "GDP vs life exp"),
numericInput("size", "Point size", 1, 1),
checkboxInput("fit", "Add line of best fit", FALSE),
# Add radio buttons for colour
___("color", ___, ___)
),
mainPanel(
plotOutput("plot")
)
)
)
# Define the server logic
server <- function(input, output) {
output$plot <- renderPlot({
p <- ggplot(gapminder, aes(gdpPercap, lifeExp)) +
# Use the value of the color input as the point colour
geom_point(size = input$size, col = input$___) +
scale_x_log10() +
ggtitle(input$title)
if (input$fit) {
p <- p + geom_smooth(method = "lm")
}
p
})
}
# Run the application
shinyApp(ui = ui, server = server)