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

전기차충전소현황 <- read.csv("전기차충전소현황.csv")

View(전기차충전소현황)

전기차충전소현황 <- 전기차충전소현황[-c(2,3,4,5,6,7,8)] ##분석에 필요없는 데이터 삭제

View(전기차충전소현황)

전기차충전소현황 %>% filter(시군명 == "가평군" & 충전기타입명 == "AC완속")

전기차충전소현황 %>% filter(시군명 == "가평군")

qplot(data=전기차충전소현황,x=시군명)

qplot(data=전기차충전소현황,x=충전기타입명)







                                            