install.packages("dplyr")
install.packages("ggplot2")
library(dplyr)
library(ggplot2)
exam <- read.csv("산불발생현황.csv")

exam <- exam[-c(6,9,10,11,12,13,14,15)]  # 제거

exam


View(exam)

str(exam)    # 데이터 속성확인

exam %>% filter(발생년도 == 2018)  # exam에서 화재 발생이 2018년도만 출력

exam %>% filter(발생년도 == 2017) # exam에서 화재 발생이 2017년도만 출력

exam %>% filter(시군명 == "화성시")   # 가장 많은 산불발생 지역

exam %>% filter(발생원인 == "쓰레기소각") # 가장 많은 산불발생원인

a<-exam %>% filter(시군명 == "화성시" & 발생년도 == 2018)

a
# filter() 와 select() 조합하기\

exam %>% select(시군명)

exam %>% filter(발생년도 == 2018) %>% select(화성시)

exam <- exam[-c(6,9,10,11,12,13,14,15)]

qplot(data=exam, x=발생년도)

qplot(data=exam, x=발생요일)

qplot(data=exam, x=시군명)

qplot(data=exam, x=발생원인)
