Tworzenie aplikacji

Tworzenie aplikacji internetowych z Shiny w R

Kaelen Medeiros

Data Scientist

Eksploracja: długość życia a PKB per capita

Aplikacja z interaktywnym wykresem punktowym oczekiwanej długości życia a PKB per capita dla wybranego kontynentu i roku

Eksploracja: długość życia a PKB per capita

Aplikacja z interaktywną tabelą oczekiwanej długości życia, populacji i PKB per capita dla wybranego kontynentu i roku

Tworzenie aplikacji Shiny: 4 kroki

Dodanie wejść (UI)
Dodanie wyjść (UI/Server)
Aktualizacja układu (UI)
Aktualizacja wyjść (Server)

Krok 1: Dodanie wejść (UI)

ui <- fluidPage(
  titlePanel("Life Expectation vs. GDP Per Capita"),

  selectInput('continent', 'Select Continent', unique(gapminder$continent)),

  sliderInput('year', 'Select Year', 1952, 2007, 1990, step = 5)
)

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

}
shinyApp(ui = ui, server = server)

Aplikacja z kontrolkami wyboru kontynentu i roku

Krok 2: Dodanie wyjść (UI)

ui <- fluidPage(
  titlePanel("Life Expectation vs. GDP Per Capita"),
  selectInput('continent', 'Select Continent', unique(gapminder$continent)),
  sliderInput('year', 'Select Year', 1952, 2007, 1990, step = 5),

  plotOutput('plot'),
  DT::DTOutput('table')

)

Krok 2: Dodanie wyjść (Server)

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

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

  output$table <- DT::renderDT({
    gapminder
  })

}

Aplikacja z pustym wykresem i interaktywną tabelą oraz kontrolkami wyboru kontynentu i roku

Krok 3: Aktualizacja układu (UI)

ui <- fluidPage(
  titlePanel("Life Expectation vs. GDP Per Capita"),

  sidebarLayout(

    sidebarPanel(
      selectInput('continent', 'Select Continent', unique(gapminder$continent)),
      sliderInput('year', 'Select Year', 1952, 2007, 1990, step = 5)
    ),

    mainPanel(
      plotOutput('plot'),
      DT::DTOutput('table')
    )

  )
)

Krok 3: Aktualizacja układu (UI)

ui <- fluidPage(
  titlePanel("Life Expectation vs. GDP Per Capita"),

  sidebarLayout(

    sidebarPanel(
      selectInput('continent', 'Select Continent', unique(gapminder$continent)),
      sliderInput('year', 'Select Year', 1952, 2007, 1990, step = 5)
    ),

    mainPanel(
      tabsetPanel(
        tabPanel("Plot", plotOutput('plot')),
        tabPanel("Table", DT::DTOutput('table'))
      )
    )

  )
)

Aplikacja z interaktywną tabelą oczekiwanej długości życia, populacji i PKB per capita dla wybranego kontynentu i roku

Krok 4: Aktualizacja wyjść (Server)

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

    data <- gapminder %>% 
      filter(year == input$year) %>% 
      filter(continent == input$continent)
    print(data)
    ggplot(data, aes(x = gdpPercap, y = lifeExp)) +
      geom_point()

  })
  output$table <- DT::renderDT({

    gapminder %>% 
      filter(year == input$year) %>%
      filter(continent == input$continent) 
  })

}

Aplikacja z interaktywnym wykresem punktowym oczekiwanej długości życia a PKB per capita dla wybranego kontynentu i roku, w zakładce

Czas na ćwiczenia!

Tworzenie aplikacji internetowych z Shiny w R