Uygulama oluşturma

R ile Shiny Kullanarak Web Uygulamaları Geliştirme

Kaelen Medeiros

Data Scientist

Yaşam beklentisi vs. kişi başı GSYİH’yı keşfedin

Seçilen bir kıta ve yıl için, yaşam beklentisi ve kişi başı GSYİH'nın etkileşimli saçılım grafiğini gösteren bir uygulama

Yaşam beklentisi vs. kişi başı GSYİH’yı keşfedin

Seçilen bir kıta ve yıl için, yaşam beklentisi, nüfus ve kişi başı GSYİH'nın etkileşimli tablosunu gösteren bir uygulama

Shiny uygulamaları: 4 adım

Girdileri ekleyin (UI)
Çıktı ekleyin (UI/Sunucu)
Düzeni güncelleyin (UI)
Çıktıları güncelleyin (Sunucu)

Adım 1: Girdileri ekleyin (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)

Kıta ve yıl seçimi için denetimler gösteren bir uygulama

Adım 2: Çıktı ekleyin (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')

)

Adım 2: Çıktı ekleyin (Sunucu)

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

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

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

}

Kıta ve yıl seçimi için denetimlerle, boş bir grafik ve etkileşimli tablo gösteren bir uygulama

Adım 3: Düzeni güncelleyin (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')
    )

  )
)

Adım 3: Düzeni güncelleyin (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'))
      )
    )

  )
)

Seçilen bir kıta ve yıl için yaşam beklentisi, nüfus ve kişi başı GSYİH'nın etkileşimli tablosunu gösteren bir uygulama

Adım 4: Çıktıları güncelleyin (Sunucu)

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) 
  })

}

Bir sekmede, seçilen kıta ve yıl için yaşam beklentisi ve kişi başı GSYİH'nın etkileşimli saçılım grafiğini gösteren bir uygulama

Hadi pratik yapalım!

R ile Shiny Kullanarak Web Uygulamaları Geliştirme