构建婴儿姓名探索 Shiny 应用

使用 R 构建 Shiny Web 应用

Ramnath Vaidyanathan

VP of Product Research

绘制应用草图

电脑手绘草图，展示一个按时间显示婴儿姓名的应用可能的外观

添加输入（UI）

ui <- fluidPage(

  titlePanel("Baby Name Explorer"),

  textInput('name', 'Enter Name', 'David')

)

server <- function(input, output, session){

}

shinyApp(ui = ui, server = server)

一个网页应用，标题为"婴儿姓名探索"，并输入了"David"

添加输出（UI/server）

ui <- fluidPage(
  titlePanel("Baby Name Explorer"),
  textInput('name', 'Enter Name', 'David'),

  plotOutput('trend')

)

server <- function(input, output, session){

  output$trend <- renderPlot({
    ggplot()
  })

}

shinyApp(ui = ui, server = server)

添加输出（UI/server）

一个网页应用，标题为"婴儿姓名探索"，输入了"David"，并显示空白图

更新布局（UI）

ui <- fluidPage(
  titlePanel("Baby Name Explorer"),

  sidebarLayout(

    sidebarPanel(

      textInput('name', 'Enter Name', 'David')

    ),

    mainPanel(

      plotOutput('trend')

    )

  )

)

server <- function(input, output, session){
  output$trend <- renderPlot({ggplot()})
}

更新布局（UI）

一个网页应用，标题为"婴儿姓名探索"，输入了"David"，右侧显示空白图，左侧为姓名输入，右侧为空白图

更新输出（server）

ui <- fluidPage(
  ...
)

server <- function(input, output, session){
  output$trend <- renderPlot({

    data_name <- subset(
      babynames, name == input$name
    )

    ggplot(data_name) +
      geom_line(
        aes(x = year, y = prop, color = sex)
      )

  })
}

一个网页应用，标题为"婴儿姓名探索"，输入了"David"，右侧显示该姓名随时间变化的频率图，左侧为姓名输入，右侧为图表

Vamos praticar!

使用 R 构建 Shiny Web 应用