install.packages("readxl")
library(readxl)

install.packages("ggplot2")
library(ggplot2)

Leva <-read_excel("C:/Users/Admin/Documents/20172280/Leva.xls")
View(Leva)

mean(Leva$SIGUN_NM)

install.packages("dplyr")
library(dplyr)

ggplot(data = Leva, aes(x = 시군명, y= 발생건수)) + geom_col()

ggplot(data = Leva, aes(x = 시군명, y = 사상자수)) +geom_col()

library(ggplot2)
install.packages("ggiraphExtra")
library(ggiraphExtra)

Leva <- rename(Leva,
               발생건수 = OCCUR_CNT,
               시군명 = SIGUN_NM)
str(changeCode(Leva))

ggChoropleth(data = Leva,
             aes(fill = OCCUR_CNT,
                 map_id = SIGUN_NM)
             map = kormap1)


install.packages("stringi")

install.packages("devtools")
devtools::install_github("cardiomoon/kormaps2014")

livrary(kormaps2014)

ggChoropleth(data = Leva,
             aes(fill = OCCUR_CNT,
                 map_id = SIGUN_NM)
             map = kormap1)

