[Kaggle] 도로교통공단 기초 카운트 시각화

노잼 팀플 

 

 

# report - 기초 통계 파악 
setwd('/Users/dayeong/Desktop/research/data/traffic_accident')

library(ggplot2)
library(dplyr)
library(tidyverse)

# Data load
pedestrian_accident <- read.csv('도로교통공단_보행자 교통사고(2019).csv', fileEncoding = 'euc-kr')
type_accident <- read.csv('도로교통공단_사고유형별 가해운전자 도로종류별 교통사고(2019).csv', fileEncoding = 'euc-kr')
law_type_accident <- read.csv('도로교통공단_사고유형별 가해운전자 법규위반별 교통사고(2019).csv',fileEncoding = 'euc-kr')

# 1. '서울시' pedestrian_accident (보행자 교통사고)
pedestrian_accident <- subset(pedestrian_accident, 시도=='서울')

pedestrian_accident %>%
  ggplot(aes(x=시군구, y=사고건수)) +
  geom_bar(stat="identity", fill="#f68060", alpha=.6, width=.4) +
  coord_flip() +
  xlab("") +
  theme_bw() +
  theme_bw(base_family = 'AppleGothic')
 

# 2. '전국' type_accident (사고유형별 교통사고)

# 2-0. 사고유형중분류 별 - 사고건수 
type_accident %>%
  ggplot(aes(x=사고유형대분류, y=사고건수))+
  geom_bar(stat="identity", fill="#f68060", alpha=.6, width=.4) +
  coord_flip() +
  xlab("") +
  theme_bw() +
  theme_bw(base_family = 'AppleGothic')

# 2-1. 사고유형대분류 별 - 사망자수 
type_accident %>%
  ggplot(aes(x=사고유형대분류, y=사망자수)) +
  geom_bar(stat="identity", fill="#f68060", alpha=.6, width=.4) +
  coord_flip() +
  xlab("") +
  theme_bw() +
  theme_bw(base_family = 'AppleGothic')
  
# 2-2. 사고유형중분류 별 - 사망자수 
type_accident %>%
  ggplot(aes(x=사고유형중분류, y=사망자수)) +
  geom_bar(stat="identity", fill="#f68060", alpha=.6, width=.4) +
  coord_flip() +
  xlab("") +
  theme_bw() +
  theme_bw(base_family = 'AppleGothic')

# 2-3. 도로종류 별 - 사망자수 
type_accident %>%
  ggplot(aes(x=도로종류, y=사망자수)) +
  geom_bar(stat="identity", fill="#f68060", alpha=.6, width=.4) +
  coord_flip() +
  xlab("") +
  theme_bw() +
  theme_bw(base_family = 'AppleGothic')


# 3. '전국' law_type_accident (법규위반 별 교통사고)

# 3-1. 사고유형대분류 별 - 사망자수
law_type_accident %>%
  ggplot(aes(x=사고유형대분류, y=사망자수)) +
  geom_bar(stat="identity", fill="#f68060", alpha=.6, width=.4) +
  coord_flip() +
  xlab("") +
  theme_bw() +
  theme_bw(base_family = 'AppleGothic')

# 3-2. 사고유형중분류 별 - 사망자수
law_type_accident %>%
  ggplot(aes(x=사고유형중분류, y=사망자수)) +
  geom_bar(stat="identity", fill="#f68060", alpha=.6, width=.4) +
  coord_flip() +
  xlab("") +
  theme_bw() +
  theme_bw(base_family = 'AppleGothic')

# 3-3. 가해자법규위반 별 - 사망자수
law_type_accident %>%
  ggplot(aes(x=가해자법규위반, y=사망자수)) +
  geom_bar(stat="identity", fill="#f68060", alpha=.6, width=.4) +
  coord_flip() +
  xlab("") +
  theme_bw() +
  theme_bw(base_family = 'AppleGothic')