데이터 과학 제품

대쉬보드 - shinydashbaord

Tidyverse Korea

1 shinydashboard 뼈대¹

1.1 개념

1.2 코드

app.R 코드를 shinydashboard를 통해 기본 뼈대를 작성하고 이해한다.

## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody()
)

server <- function(input, output) { }

shinyApp(ui, server)

다운로드 app.R shiny 파일

1.3 실행결과

2 dashboardBody 작업²

2.1 개념

2.2 코드

## app.R ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
        fluidRow(
            box(
                title = "Controls",
                sliderInput("slider", "Number of observations:", 1, 100, 50)
            ),
            box(plotOutput("plot1", height = 250))
        )
    )
)

server <- function(input, output) {
    
    set.seed(122)
    histdata <- rnorm(500)
    
    output$plot1 <- renderPlot({
        data <- histdata[seq_len(input$slider)]
        hist(data)
    })
}

shinyApp(ui, server)

다운로드 app.R shiny 파일

2.3 실행결과

3 dashboardSidebar 작업

3.1 개념

3.2 코드

stackoverflow, “Show content for menuItem when menuSubItems exist in Shiny Dashboard” 참고하여 옆막대메뉴(Sidebar) 가 계층을 갖는 경우 펼치기/숨기기 기능을 구현한다. 메뉴아이템과 탭아이템을 tabName으로 연결하여 옆막대메뉴를 클릭했을 때 dashboardBody에서 표현되도록 작업을 한다.

## app.R ##
# 
library(shiny)
library(shinydashboard)

convertMenuItem <- function(mi,tabName) {
    mi$children[[1]]$attribs['data-toggle']="tab"
    mi$children[[1]]$attribs['data-value'] = tabName
    if(length(mi$attribs$class)>0 && mi$attribs$class=="treeview"){
        mi$attribs$class=NULL
    }
    mi
}

ui <- dashboardPage(
    dashboardHeader(),
    dashboardSidebar(
        menuItem("득표현황", tabName = "vote_tab"),
          menuSubItem("전국 득표율", tabName = "sido_vote"),
          menuSubItem("시도별 득표율", tabName = "sigungu_vote"),
        menuItem("지도", tabName = "map"),
        menuItem("다운로드", tabName = "download"),
        convertMenuItem(menuItem("지도", tabName = "sub_map", icon = icon("map"), selected = FALSE, show = FALSE,
                                 menuSubItem("시도", tabName = "sido_map"),
                                 menuSubItem("구시군", tabName = "sigungu_map")), "sub_map")
    ),
    
    dashboardBody(
        tabItems(
            tabItem("vote_tab", div(p("Dashboard tab content"))),
            tabItem("sido_vote", "시도 득표"),
            tabItem("sigungu_vote", "시군구 득표"),
            tabItem("map", "지도"),
            tabItem("sub_map", "지도 상위메뉴"),
            tabItem("sido_map", "시도 지도"),
            tabItem("sigungu_map", "시군구 지도")
        )
    )
)

server <- function(input, output) {
    

}

shinyApp(ui, server)

다운로드 app.R shiny 파일

3.3 실행결과

4 dashboardHeader 작업

4.1 개념

4.2 코드

## app.R ##
library(shiny)
library(shinydashboard)


ui <- dashboardPage(
    dashboardHeader(title = "제20대 대통령선거",
        dropdownMenu(type = "messages",
                     messageItem(
                         from = "Sales Dept",
                         message = "Sales are steady this month."
                     ),
                     messageItem(
                         from = "New User",
                         message = "How do I register?",
                         icon = icon("question"),
                         time = "13:45"
                     ),
                     messageItem(
                         from = "Support",
                         message = "The new server is ready.",
                         icon = icon("life-ring"),
                         time = "2014-12-01"
                     )
        )
    ),
    dashboardSidebar(),
    dashboardBody()
)

server <- function(input, output) {
    

}

shinyApp(ui, server)

다운로드 app.R shiny 파일

4.3 실행결과

5 대쉬보드 구조화 작업

5.1 개념

5.2 코드 - ui.R

library(shiny)
library(shinydashboard)

# header <- dashboardHeader()
# sidebar <- dashboardSidebar()
# body <- dashboardBody()
# dashboardPage(header, sidebar, body)

header <- 
  dashboardHeader(title = "제20대 대통령선거",
    dropdownMenu(type = "messages",
                 messageItem(
                   from = "Sales Dept",
                   message = "Sales are steady this month."
                 ),
                 messageItem(
                   from = "New User",
                   message = "How do I register?",
                   icon = icon("question"),
                   time = "13:45"
                 ),
                 messageItem(
                   from = "Support",
                   message = "The new server is ready.",
                   icon = icon("life-ring"),
                   time = "2014-12-01"
                 )
    )
  )

sidebar <- 
  dashboardSidebar(
    sidebarMenu(
      id = "tabs",
      menuItem("득표현황", tabName = "vote_tab", startExpanded = FALSE,
               menuSubItem("전국 득표율", tabName = "sido_vote"),
               menuSubItem("시도별 득표율", tabName = "sigungu_vote")
      ),
      menuItem("지도", tabName = "map"),
      menuItem("다운로드", tabName = "download"),
      menuItem("신지도", icon = icon("bar-chart-o"), startExpanded = TRUE,
               menuSubItem("시도", tabName = "sido_map"),
               menuSubItem("구시군", tabName = "sigungu_map")
      ),
      menuItem("연결사례", tabName = "connect"),
      textOutput("clicked")
    )
  )

body <- 
  dashboardBody(
    tabItems(
      tabItem("vote_tab", div(p("Dashboard tab content"))),
      tabItem("sido_vote", "시도 득표"),
      tabItem("sigungu_vote", "시군구 득표"),
      tabItem("map", "지도"),
      tabItem("download", "다운로드"),
      tabItem("sub_map", "지도 상위메뉴"),
      tabItem("sido_map", "시도 지도"),
      tabItem("sigungu_map", "시군구 지도"),
      tabItem("connect", 
              fluidRow(
                box(
                  title = "Controls",
                  sliderInput("slider", "Number of observations:", 1, 100, 50)
                ),
                box(plotOutput("plot1", height = 250))
              )
            )
    )
  )

dashboardPage(header, 
              sidebar, 
              body)

다운로드 app.R shiny 파일

5.3 코드 - server.R

server <- function(input, output, session) {
    set.seed(122)
    histdata <- rnorm(500)
    
    output$plot1 <- renderPlot({
        data <- histdata[seq_len(input$slider)]
        hist(data)
    })
    
    output$clicked <- renderText({
        paste("You've selected:", input$tabs)
    })
}

다운로드 app.R shiny 파일

5.4 실행결과

---

1. “Data Science Tutorials”, R Shiny Tutorial | R Shiny Dashboard | Creating Layout of Dashboard | R Programming↩︎

2. shinydashboard - Get started↩︎

 

---

데이터 과학자 이광춘 저작

kwangchun.lee.7@gmail.com