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 merupakan bagian dari kursus

Membangun Aplikasi Web dengan Shiny di R

Lihat Kursus

Instruksi latihan

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

Latihan interaktif langsung praktik

Cobalah latihan ini dengan melengkapi kode contoh ini.

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