Visualization

ISS與年齡

p1 <- plot_ly(data1, x = ~age) %>%
  add_lines(y = ~ISS_1_8, name = "ISS 1-8") %>%
  add_lines(y = ~ISS_9_15, name = "ISS 9-15") %>%
  add_lines(y = ~ISS_16_24, name = "ISS 16-24") %>%
  add_lines(y = ~ISS_25_75, name = "ISS 25-75") %>%
  layout(
    title = "ISS and Age",
    xaxis = list(domain = c(0.1, 1), title = 'age'),
    yaxis = list(title = "count"),
    updatemenus = list(
      list(
        type = "buttons",
        y = 0.8,
        buttons = list(
          
          list(method = "update",
               args = list(list(visible = c(TRUE, FALSE, FALSE, FALSE))),
               label = "ISS 1-8"),
          
          list(method = "update",
               args = list(list(visible = c(FALSE, TRUE, FALSE, FALSE))),
               label = "ISS 9-15"),
          
          list(method = "update",
               args = list(list(visible = c(FALSE, FALSE, TRUE, FALSE))),
               label = "ISS 16-24"),
          
          list(method = "update",
               args = list(list(visible = c(FALSE, FALSE, FALSE, TRUE))),
               label = "ISS 25-75"),
          
          list(method = "update",
               args = list(list(visible = c(TRUE, TRUE, TRUE, TRUE))),
               label = "reset")))
    ))
p1

外傷機轉與年齡

button_type<-list(
  xanchor = 'center',
  yanchor = "top",
  x = -0.1,
  y = 1.27,
  buttons = list(
    list(method = "update",
         args = list(list(visible = c(TRUE, FALSE, FALSE, FALSE, FALSE, FALSE,
                                      FALSE, FALSE, FALSE, FALSE, FALSE, FALSE))),
         label = "車禍"),
    
    list(method = "update",
         args = list(list(visible = c(FALSE, TRUE, FALSE, FALSE, FALSE, FALSE,
                                      FALSE, FALSE, FALSE, FALSE, FALSE, FALSE))),
         label = "跌倒摔落"),
    
    list(method = "update",
         args = list(list(visible = c(FALSE, FALSE, TRUE, FALSE, FALSE, FALSE,
                                      FALSE, FALSE, FALSE, FALSE, FALSE, FALSE))),
         label = "壓砸傷"),
    
    list(method = "update",
         args = list(list(visible = c(FALSE, FALSE, FALSE, TRUE, FALSE, FALSE,
                                      FALSE, FALSE, FALSE, FALSE, FALSE, FALSE))),
         label = "窒息"),
    
    list(method = "update",
         args = list(list(visible = c(FALSE, FALSE, FALSE, FALSE, TRUE, FALSE,
                                      FALSE, FALSE, FALSE, FALSE, FALSE, FALSE))),
         label = "穿刺切割傷"),
    
    list(method = "update",
         args = list(list(visible = c(FALSE, FALSE, FALSE, FALSE, FALSE, TRUE,
                                      FALSE, FALSE, FALSE, FALSE, FALSE, FALSE))),
         label = "燒燙傷"),
    
    list(method = "update",
         args = list(list(visible = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,
                                      TRUE, FALSE, FALSE, FALSE, FALSE, FALSE))),
         label = "電擊傷"),
    
    list(method = "update",
         args = list(list(visible = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,
                                      FALSE, TRUE, FALSE, FALSE, FALSE, FALSE))),
         label = "中毒"),
    
    list(method = "update",
         args = list(list(visible = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,
                                      FALSE, FALSE, TRUE, FALSE, FALSE, FALSE))),
         label = "溺水"),
    
    list(method = "update",
         args = list(list(visible = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,
                                      FALSE, FALSE, FALSE, TRUE, FALSE, FALSE))),
         label = "自然災害"),
    
    list(method = "update",
         args = list(list(visible = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,
                                      FALSE, FALSE, FALSE, FALSE, TRUE, FALSE))),
         label = "自殺"),
    
    list(method = "update",
         args = list(list(visible = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE,
                                      FALSE, FALSE, FALSE, FALSE, FALSE, TRUE))),
         label = "重大運輸事故"),
    
    list(method = "update",
         args = list(list(visible = c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,
                                      TRUE, TRUE, TRUE, TRUE, TRUE, TRUE))),
         label = "reset")))
  
p2 <- plot_ly(data2, x = ~age) %>%
  add_lines(y = ~X1, name = "車禍") %>%
  add_lines(y = ~X2, name = "跌倒摔落") %>%
  add_lines(y = ~X3, name = "壓砸傷") %>%
  add_lines(y = ~X4, name = "窒息") %>%
  add_lines(y = ~X5, name = "穿刺切割傷") %>%
  add_lines(y = ~X6, name = "燒燙傷") %>%
  add_lines(y = ~X7, name = "電擊傷") %>%
  add_lines(y = ~X8, name = "中毒") %>%
  add_lines(y = ~X9, name = "溺水") %>%
  add_lines(y = ~X10, name = "自然災害") %>%
  add_lines(y = ~X11, name = "自殺") %>%
  add_lines(y = ~X12, name = "重大運輸事故") %>%
  
  layout(
    title = "Ecode type and Age",
    xaxis = list(domain = c(0.2, 2), title = 'age'),
    yaxis = list(title = "count"),
    updatemenus = list(button_type))
p2