Perbarui output (server)

Anda hampir selesai! Langkah terakhir adalah memperbarui output plot untuk menampilkan plot garis prop vs. year, diberi warna berdasarkan sex, untuk name yang dimasukkan oleh pengguna. Anda dapat menggunakan templat plot berikut untuk membuat plot Anda:

ggplot(subset(babynames, name == "David")) +
  geom_line(aes(x = year, y = prop, color = sex))

Ingat bahwa masukan pengguna bernama foo dapat diakses sebagai input$foo di server. Paket shiny dan ggplot2, serta himpunan data babynames, telah kami muat sebelumnya.

Latihan ini adalah bagian dari kursus

Membangun Aplikasi Web dengan Shiny di R

Lihat Kursus

Petunjuk latihan

Tambahkan kode pemetaan di dalam renderPlot(). Pastikan untuk mengganti nama yang ditulis tetap (name == "David") dengan nama yang dimasukkan oleh pengguna.

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

ui <- fluidPage(
  titlePanel("Baby Name Explorer"),
  sidebarLayout(
    sidebarPanel(textInput('name', 'Enter Name', 'David')),
    mainPanel(plotOutput('trend'))
  )
)

server <- function(input, output, session) {
  output$trend <- renderPlot({
    # CODE BELOW: Update to display a line plot of the input name
    ggplot()
    
  })
}

shinyApp(ui = ui, server = server)

Edit dan Jalankan Kode