exam <- read.csv("전기차충전소현황.csv")
View(exam)
exam %>% filter(충전기타입명 != AC완속)
exam %>% filter(충전기타입명 = AC완속)
exam %>% filter(충전기타입명 = AC)
install.packages("dplyr")
library(dplyr)
library(dplyr)
install.packages("dplyr")
library(dplyr)
exam <- read.csv("전기차충전소현황.csv")
library(dplyr)
library(dplyr)
library(dplyr)
install.packages("dplyr")
library(dplyr)
library(dplyr)
exam %>% filter(충전기타입명 = AC)
library(dplyr)
install.packages("dplyr")
library(dplyr)
library(dplyr)
library(dplyr)
exam <- read.csv("전기차충전소현황.csv")
library(dplyr)
library(dplyr)
install.packages("dplyr")
library(dplyr)
library(dplyr)
install.packages("dplyr")
library(dplyr)
library(dplyr)
library(dplyr)
library(dplyr)
(dplyr)
library(dplyr)
install.packages("dplyr")
install.packages("dplyr")
library(dplyr)
install.packages("dplyr")
library(dplyr)
View(exam)
exam %>% filter(충전기타입명 != AC완충)
exam %>% filter(충전기타입명 != AC완속)
install.packages("dplyr")
install.packages("dplyr")
install.packages("dplyr")
install.packages("dplyr")
exam <- read.csv("전기차충전소현황.csv")
View(exam)
exam %>% filter(충전기타입명 != AC완속)
install.packages("dplyr")
install.packages("ggplot2")
install.packages("ggplot2")
("ggplot2")
install.packages("dplyr")
library(ggplot2)
install.packages("ggplot2")
install.packages("dplyr")
install.packages("dplyr")
View(exam)
install.packages("dplyr")
library(dplyr)
exam %>% filter(충전기타입명 != AC완속)
exam %>% filter(충전기타입명 != AC완속)
View(exam)
library(dplyr)
View(exam)
View(exam)
exam %>% filter(충전기타입명 = AC완속)
exam %>% filter(충전기타입명 == AC완속)
install.packages("ggplot2")
library(ggplot2)
library(ggplot2)
library(ggplot2)
install.packages("ggplot2")
install.packages("ggplot2")
install.packages("ggplot2")
library(ggplot2)
library(dplyr)
library(ggplot2)
library(ggplot2)
exam %>% filter(충전기타입명 == AC완속)
install.packages("dplyr")
library(dplyr)
install.packages("ggplot2")
library(ggplot2)
install.packages("ggplot2")
install.packages("ggplot2")
exam <- read.csv("전기차충전소현황.csv")
View(exam)
library(ggplot2)
summarise(exam)
summary(exam)
exam %>% filter(충전기타입명 == AC완속)
library(dplyr)
exam %>% filter(시군명 == 가평군)
exam %>% filter(시군명 == '가평군')
exam %>% filter('시군명' == '가평군')
exam %>% filter("시군명" == "가평군")
exam %>% select("시군명")
exam %>% select("시군명" == "가평군")
exam %>% select("시군명" == "가평군")
exam %>% select("시군명")
exam %>% group_by("시군명")
group <- exam %>% group_by("시군명")
View(group)
View(group)
rm(group)
group <- exam %>% group_by("가평군")
View(group)
group <- exam %>% group_by("가평군") %>% filter("시군명" == "가평군")
View(group)
View(exam)
View(group)
group <- exam %>% filter('시군명' == '가평군"'
group <- exam %>% filter('시군명' == '가평군')
group <- exam %>% filter('시군명' == "가평군")
View(group)
group <- exam %>% filter("시군명" == "가평군")
View(group)
group <- exam %>% filter("시군명")
View(group)
group <- exam %>% filter(시군명 == "가평군")
View(group)
View(group)
View(exam)
View(exam)
rm(exam == "소재지지번주소")
View(exam)
exam %>% group(시군명) %>% summarise(시군명)
exam %>% group("시군명") %>% summarise(시군명)
exam %>% group(시군명)
exam %>% group_by(시군명) %>% summarise(시군명)
exam %>% group_by("시군명") %>% summarise(시군명)
exam %>% group_by(시군명)
exam %>% group_by(시군명) %>% summarise(가평군)
exam %>% group_by(시군명) %>% summarise("가평군")
View(group)
View(exam)
exam <- exam[-c(3)]
View(exam)
exam <- exam[-c(3)]
exam <- read.csv("전기차충전소현황.csv")
exam <- exam[-c(3), -c(4),-c(5),-c(6),-c(7)]
exam <- exam[-c(3), (4), (5), (6), (7)]
exam <- exam[-c(3,4,5,6,7)]
rm(group)
가평군 <- exam %>% filter(시군명 == "가평군")
View(가평군)
library(ggplot2)
gplot(exam)
qplot(exam)
install.packages("ggplot2")
install.packages("ggplot2")
library(ggplot2)
library(ggplot2)
exam <- read.csv("전기차충전소현황.csv")
exam <- exam[-c(3,4,5,6,7)]
qplot(exam)
qplot(data=exam,x=시군명)
View(exam)
exam <- read.csv("전기차충전소현황.csv")
View(exam)
View(exam)
exam <- exam[-c(3,4,5,6,7,8)]
View(exam)
exam <- read.csv("전기차충전소현황.csv")
View(exam)
View(exam)
exam <- exam[-c(3,4,5,6,7,8)]
View(exam)
View(exam)
exam <- read.csv("전기차충전소현황.csv")
exam <- exam[-c(3,4,5,6,7,8,9)]
View(exam)
exam <- read.csv("전기차충전소현황.csv")
View(exam)
exam <- exam[-c(2,3,4,5,6,7,8)]
View(exam)
qplot(data=exam,x=시군명)
View(exam)
qplot(data=exam,x=시군명,y=충전기타입명)
qplot(data=exam,x=시군명)
전기차충전소현황 <- read.csv("전기차충전소현황.csv")
rm(exam)
전기차충전소현황 <- 전기차충전소현황[-c(2,3,4,5,6,7,8)]
View(전기차충전소현황)
View(전기차충전소현황)
qplot(data=exam,x=시군명)
qplot(data=전기차충전소현황,x=시군명)
qplot(data=전기차충전소현황,x=충전타입명)
qplot(data=전기차충전소현황,x=충전기타입명)
qplot(data=전기차충전소현황,x=충전기타입명,y=;시군명)
qplot(data=전기차충전소현황,x=충전기타입명,y=시군명)
qplot(data=전기차충전소현황,x=충전기타입명)
qplot(data=전기차충전소현황,x=충전기타입명, 시군명)
qplot(data=전기차충전소현황,x=충전기타입명)
ggplot(data=전기차충전소현황, aes(x=시군명, y=충전기타입명)) + geom_col()
qplot(data=전기차충전소현황,x=충전기타입명)
qplot(data=전기차충전소현황,x=시군명)
qplot(data=전기차충전소현황,x=충전기타입명)
전기차충전소현황 %>% group_by(시군명) %>% summarise(충전기타입명)
전기차충전소현황 %>% group_by(시군명) %>% summarise(충전기타입명 = sum(충전기타입명))
qplot(data=전기차충전소현황,x=충전기타입명)
전기차충전소현황 %>% filter(시군명 = "가평군")
install.packages("dplyr")
library(dplyr)
install.packages("ggplot2")
library(ggplot2)
전기차충전소현황 %>% filter(시군명 = "가평군")
전기차충전소현황 %>% filter(시군명 == "가평군")
View(전기차충전소현황)
View(전기차충전소현황)
전기차충전소현황 %>% filter(시군명 == "가평군") %>% filter(충전기타입명 = "AC완속")
전기차충전소현황 %>% filter(시군명 == "가평군" & 충전기타입명 = "AC완속")
전기차충전소현황 %>% filter(시군명 == "가평군" && 충전기타입명 = "AC완속")
전기차충전소현황 %>% filter(시군명 == "가평군" & 충전기타입명 == "AC완속")
전기차충전소현황 %>% filter(시군명 == "가평군" && 충전기타입명 == "AC완속")
전기차충전소현황 %>% filter(시군명 == "가평군" | 충전기타입명 == "AC완속")
전기차충전소현황 %>% filter(시군명 == "가평군")
library(ggplot2)
library(dplyr)
install.packages("ggplot2")
install.packages("ggplot2")
library(ggplot2)
library(dplyr)
전기차충전소현황 <- read.csv("전기차충전소현황.csv")
전기차충전소현황 <- 전기차충전소현황[-c(2,3,4,5,6,7,8)]
전기차충전소현황 %>% filter(시군명 == "가평군" | 충전기타입명 == "AC완속")
전기차충전소현황 %>% filter(시군명 == "가평군" & 충전기타입명 == "AC완속")
ggplot(data = 전기차충전소현황, aes(x=시군명, y=충전기타입명, file=충전기타입명)) + geom_col() + coord_flip()
ggplot(data = 전기차충전소현황, aes(x=충전기타입명, y=시군, file=충전기타입명)) + geom_col() + coord_flip()
ggplot(data = 전기차충전소현황, aes(x=충전기타입명, y=시군, file=충전기타입명)) + geom_col() + coord_flip()
ggplot(data = 전기차충전소현황, aes(x=충전기타입명, y=시군명, file=충전기타입명)) + geom_col() + coord_flip()
ggplot(data = 전기차충전소현황, aes(x=충전기타입명, x=시군명, file=충전기타입명)) + geom_col() + coord_flip()
()
ggplot(data = 전기차충전소현황, aes(x=충전기타입명, x=시군명, file=충전기타입명)) + geom_col() + coord_flip()
ggplot(data = 전기차충전소현황, aes( x=시군명, file=충전기타입명)) + geom_col() + coord_flip()
ggplot(data = 전기차충전소현황, aes(x=시군명, file=충전기타입명)) + geom_col() + coord_flip()
ggplot(data = 전기차충전소현황, aes(x=시군명, y=충전기타입 file=충전기타입명)) + geom_col() + coord_flip()
ggplot(data = 전기차충전소현황, aes(x=시군명, y=충전기타입명 file=충전기타입명)) + geom_col() + coord_flip()
qplot(data=전기차충전소현황,x=시군명)
