Construiți o aplicație Shiny pentru explorarea prenumelor

Crearea aplicațiilor web cu Shiny în R

Ramnath Vaidyanathan

VP of Product Research

Schițați aplicația

Schiță desenată manual a unei aplicații care afișează evoluția unui prenume în timp

Adăugați intrări (UI)

ui <- fluidPage(

  titlePanel("Baby Name Explorer"),

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

)

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

}

shinyApp(ui = ui, server = server)

O aplicație web cu titlul „Baby name explorer" și prenumele „David" introdus

Adăugați rezultate (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)

Adăugați rezultate (UI/server)

O aplicație web cu titlul „Baby names explorer", prenumele „David" introdus și un grafic gol afișat

Actualizați aspectul (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()})
}

Actualizați aspectul (UI)

O aplicație web cu titlul „Baby names explorer", prenumele „David" introdus și un grafic gol afișat, cu câmpul de introducere în stânga și graficul gol în dreapta

Actualizați rezultatele (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)
      )

  })
}

O aplicație web cu titlul „Baby names explorer", prenumele „David" introdus și un grafic al frecvenței prenumelui în timp afișat, cu câmpul de introducere în stânga și graficul în dreapta

Să exersăm!

Crearea aplicațiilor web cu Shiny în R