Cập nhật đầu ra (server)
Sắp xong rồi! Bước cuối cùng là cập nhật phần đầu ra biểu đồ để hiển thị biểu đồ đường của prop theo year, tô màu theo sex, cho name mà người dùng đã nhập. Bạn có thể dùng mẫu biểu đồ này để tạo biểu đồ của mình:
ggplot(subset(babynames, name == "David")) +
geom_line(aes(x = year, y = prop, color = sex))
Nhớ rằng một đầu vào của người dùng có tên foo có thể được truy cập là input$foo trong server. Chúng tôi đã nạp sẵn các gói shiny và ggplot2, cũng như bộ dữ liệu babynames.
Bài tập này là một phần của khóa học
Xây dựng ứng dụng web với Shiny trong R
Hướng dẫn bài tập
- Thêm mã vẽ vào bên trong
renderPlot(). Nhớ thay thế tên được mã hóa cứng (name == "David") bằng tên mà người dùng đã nhập.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
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)