Bygg en Shiny-app för att utforska babynames

Bygg webbapplikationer med Shiny i R

Ramnath Vaidyanathan

VP of Product Research

Skissa din app

Handritad skiss av en app som visar ett babynamns popularitet över tid

Bygg webbapplikationer med Shiny i R

Lägg till indata (UI)

ui <- fluidPage(

  titlePanel("Baby Name Explorer"),

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

)

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

}

shinyApp(ui = ui, server = server)

En webbapp med titeln "Baby name explorer" och namnet "David" inmatat

Bygg webbapplikationer med Shiny i R

Lägg till utdata (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)
Bygg webbapplikationer med Shiny i R

Lägg till utdata (UI/server)

En webbapp med titeln "Baby names explorer", namnet "David" inmatat och ett tomt diagram visat

Bygg webbapplikationer med Shiny i R

Uppdatera layouten (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()})
}
Bygg webbapplikationer med Shiny i R

Uppdatera layouten (UI)

En webbapp med titeln "Baby names explorer", namnet "David" inmatat och ett tomt diagram, där namnfältet visas till vänster och diagrammet till höger

Bygg webbapplikationer med Shiny i R

Uppdatera utdata (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)
      )

  })
}

En webbapp med titeln "Baby names explorer", namnet "David" inmatat och ett diagram över namnets frekvens över tid, där namnfältet visas till vänster och diagrammet till höger

Bygg webbapplikationer med Shiny i R

Nu kör vi en övning!

Bygg webbapplikationer med Shiny i R

Preparing Video For Download...