Membangun aplikasi

Membangun Aplikasi Web dengan Shiny di R

Kaelen Medeiros

Data Scientist

Jelajahi Harapan Hidup vs PDB per Kapita

Aplikasi menampilkan sebar interaktif harapan hidup vs PDB per kapita untuk benua dan tahun terpilih

Jelajahi Harapan Hidup vs PDB per Kapita

Aplikasi menampilkan tabel interaktif harapan hidup, populasi, dan PDB per kapita untuk benua dan tahun terpilih

Membangun aplikasi Shiny: 4 langkah

Tambahkan input (UI)
Tambahkan output (UI/Server)
Perbarui tata letak (UI)
Perbarui output (Server)

Langkah 1: Tambahkan input (UI)

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

  selectInput('continent', 'Pilih Benua', unique(gapminder$continent)),

  sliderInput('year', 'Pilih Tahun', 1952, 2007, 1990, step = 5)
)

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

}
shinyApp(ui = ui, server = server)

Aplikasi menampilkan kontrol untuk memilih benua dan tahun

Langkah 2: Tambahkan output (UI)

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

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

)

Langkah 2: Tambahkan output (Server)

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

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

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

}

Aplikasi menampilkan plot kosong dan tabel interaktif serta kontrol untuk memilih benua dan tahun

Langkah 3: Perbarui tata letak (UI)

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

  sidebarLayout(

    sidebarPanel(
      selectInput('continent', 'Pilih Benua', unique(gapminder$continent)),
      sliderInput('year', 'Pilih Tahun', 1952, 2007, 1990, step = 5)
    ),

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

  )
)

Langkah 3: Perbarui tata letak (UI)

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

  sidebarLayout(

    sidebarPanel(
      selectInput('continent', 'Pilih Benua', unique(gapminder$continent)),
      sliderInput('year', 'Pilih Tahun', 1952, 2007, 1990, step = 5)
    ),

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

  )
)

Aplikasi menampilkan tabel interaktif harapan hidup, populasi, dan PDB per kapita untuk benua dan tahun terpilih

Langkah 4: Perbarui output (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) 
  })

}

Aplikasi menampilkan sebar interaktif harapan hidup vs PDB per kapita untuk benua dan tahun terpilih, dalam tab

Ayo berlatih!

Membangun Aplikasi Web dengan Shiny di R