10.29 참사(이태원) 희생되신 분들을 추모하며 역대 자연재해 대표적인 태풍을 통한 희생자와 인재로 희생되신 통계 데이터를 제작하여 시각화를 통해 이번 참사를 되돌아보고자 한다.

자연재해 태풍

천재의 대표적인 사례로 대한민국에서는 태풍이 꼽히고 있다. 지구 온난화의 영향으로 갈수록 태풍이 강해지고 있음에도 불구하고 사망자수는 지속적으로 줄어들고 있어 태풍과 같은 자연재해에 대해 안전이 강화되고 있는 것이 데이터를 통해 확인되고 있다.

library(tidyverse)
#> ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──
#>  ggplot2 3.3.6       purrr   0.3.4 
#>  tibble  3.1.8       dplyr   1.0.10
#>  tidyr   1.2.1       stringr 1.4.1 
#>  readr   2.1.2       forcats 0.5.2
#> Warning: package 'tibble' was built under R version 4.2.1
#> Warning: package 'tidyr' was built under R version 4.2.1
#> Warning: package 'dplyr' was built under R version 4.2.1
#> Warning: package 'stringr' was built under R version 4.2.1
#> Warning: package 'forcats' was built under R version 4.2.1
#> ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
#>  dplyr::filter() masks stats::filter()
#>  dplyr::lag()    masks stats::lag()
library(ggrepel)
library(lubridate)
#> 
#> Attaching package: 'lubridate'
#> The following objects are masked from 'package:base':
#> 
#>     date, intersect, setdiff, union
library(bitData)
#> Warning: replacing previous import 'jsonlite::flatten' by 'purrr::flatten' when
#> loading 'bitData'
#> 
#> Attaching package: 'bitData'
#> The following object is masked from 'package:tidyr':
#> 
#>     population
#> The following object is masked from 'package:datasets':
#> 
#>     co2
extrafont::loadfonts()

typhoon_g <- typhoon %>% 
  ggplot(aes(x = 시작일, y = 사망)) +
    geom_line() +
    geom_point(size = 3) +
    expand_limits(y = c(0, 1300)) +
    geom_label_repel(aes(label = glue::glue("{태풍명}:{사망}명")),
                     label.size = NA) +
    scale_y_continuous(labels = scales::comma) +
    labs(x = "", y = "사망 실종자(명)",
         title = "태풍으로 인한 인명피해",
         caption = "자료출처: 나무위키 태풍/대한민국/각종 기록 순위") +
    theme_election()

typhoon_g


# ggsave( glue::glue("inst/extdata/figure/typhoon.png") , 
#       typhoon_g,
#       device = ragg::agg_png, 
#       width = 250, height = 176, units = "mm", res = 600) 

인재

서울경제, 헤럴드경제 뉴스기사로 실린 통계자료를 결합하여 1950년 이후 대규모 참사에 대한 데이터를 바탕으로 역대 참사를 표로 제작한다.

library(gt)
#> Warning: package 'gt' was built under R version 4.2.1

disaster_gt <- disaster %>% 
  arrange(desc(날짜)) %>% 
  mutate(날짜 = format(날짜, "%Y년 %m월 %d일")) %>%
  gt() %>% 
    tab_header(
      title = md("**&#127895; 역대 대형참사 &#127895;**"),
      subtitle = md("*2022년 10월 29일 이태원 참사*")
    ) %>% 
    tab_options(
      table.width = pct(77),
      heading.background.color = "#8f3018", # R logo 파란색
      heading.title.font.size = "20px",
      column_labels.background.color = "#F7F7F7", # R logo 회색 
      column_labels.font.weight = "bold",
      stub.background.color = "#ffffff",
      stub.font.weight = "bold"
    ) %>% 
    cols_align(
      align = "center",
      columns = everything()
    ) %>% 
  tab_source_note(
    source_note =  md("**자료출처**: 헤럴드경제와 서울경제 뉴스기사")
  ) %>% 
  data_color(
    columns = c(사망),
    colors = scales::col_numeric(
      palette = paletteer::paletteer_d(
        palette = "ggsci::blue_material"
        ) %>% as.character(),
      domain = NULL
      )
  ) %>% 
   tab_style(style = list(cell_text(weight = 'bold',
                                    size  = "large",
                                    color = "black")), 
            locations = cells_body(columns = 사망, 
                                   rows = 사망 >= 154))  %>% 
   tab_style(style = list(cell_text(weight = 'bold', size  = "large")), 
            locations = cells_body(columns = c(날짜, 참사내역), 
                                   rows = 사망 >= 154))  

disaster_gt
🎗 역대 대형참사 🎗
2022년 10월 29일 이태원 참사
날짜 사망 참사내역
2022년 10월 29일 154 이태원 압사
2014년 04월 16일 299 세월호 침몰
2003년 02월 18일 192 대구시지하철 방화
1997년 08월 06일 225 대한항공 B747-300기 괌 추락
1995년 06월 29일 502 삼풍백화점 붕괴
1995년 04월 28일 101 대구지하철 1호선 도시가스·폭발
1994년 10월 21일 32 성수대교붕괴
1993년 10월 10일 292 여객선 서해훼리호 침몰
1987년 11월 29일 115 대한항공(KAL) 보잉 707기공중폭파
1983년 09월 01일 269 대한항공 보잉747기 피격
1977년 11월 11일 59 이리역 열차폭발
1974년 11월 03일 88 청량리 대왕코너 화재
1974년 02월 22일 157 해군YTL선 전복
1972년 12월 02일 51 서울시민회관화재
1971년 12월 25일 165 대연각호텔 화재
1970년 12월 15일 323 여객선 남영호 침몰
1970년 04월 08일 33 마포와우아파트붕괴
1963년 01월 18일 138 여객선 연호 침몰
1953년 01월 09일 330 여객선 창경호 침몰
자료출처: 헤럴드경제와 서울경제 뉴스기사
## disaster_gt %>% ## gtsave(glue::glue("inst/extdata/figure/disaster_gt.png"))