install.packages("dplyr")
library(dplyr)
exam <- read.csv("산불발생현황.csv")
exam
exam %>% filter(발생년도 == 1)
view(exam)
View(exam)
str(exam)
exam %>% filter(발생년도 == 2018)
exam %>% filter(발생년도 == 2017)
exam %>% filter(발생년도 == 2018) %>% select(화성시)
exam %>% select(화성시)
exam %>% select(시군명)
exam %>% filter(시군명 >= 화성시)
exam %>% filter(시군명 = 화성시)
exam %>% filter(시군명 > 화성시)
exam %>% filter(시군명 == 화성시)
exam %>% filter(시군명 == 화성시)
exam %>% filter(발생년도 == 2017) # exam에서 화재 발생이 2017년도만 출력
exam %>% filter(시군명 == "화성시")
exam %>% filter(시군명 == "화성시" 발생년도 == 2018)
exam %>% filter(시군명 == "화성시" | 발생년도 == 2018)
exam %>% filter(시군명 == "화성시" | 발생년도 == 2018)
install.packages("ggplot2")
library(ggplot2)
exam %>% filter(시군명 == "화성시" & 발생년도 == 2018)
exam <- exam[-c(6,8,9,10,11,12,13,14,15)]
View(exam)
exam
exam <- read.csv("산불발생현황.csv")
View(exam)
View(exam)
exam <- exam[-c(6,8,9,10,11,12,13,14,15)]
exam %>% filter(발생년도 == 2018)  # exam에서 화재 발생이 2018년도만 출력
exam %>% filter(시군명 == "화성시" & 발생년도 == 2018)
gplot(data=시군명, x=발생년도)
gplot(data=시군명, x=발생년도)
gplot(data=시군명, x=발생년도)
gplot(data=exam, x=발생년도)
qplot(data=exam, x=발생년도)
qplot(data=exam, x=발생년도)
a<-exam %>% filter(시군명 == "화성시" & 발생년도 == 2018)
a
qplot(data=exam, x=시군명)
qplot(data=exam, x=발생년도)
exam <- exam[-c(6,9,10,11,12,13,14,15)]
qplot(data=exam, x=발생요일)
exam <- read.csv("산불발생현황.csv")
exam <- exam[-c(6,9,10,11,12,13,14,15)]  # 제거
View(exam)
qplot(data=exam, x=발생요일)
qplot(data=exam, x=발생요일)
library(dplyr)
qplot(data=exam, x=발생요일)
library(ggplot2)
qplot(data=exam, x=발생요일)
View(exam)
qplot(data=exam, x=시군명)
