대한민국 자연재해와 참사
disaster.Rmd10.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("**🎗 역대 대형참사 🎗**"),
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 | 여객선 창경호 침몰 |
| 자료출처: 헤럴드경제와 서울경제 뉴스기사 | ||