install.packages("dplyr")
df_new<-df_raw
wifi_kyeong <- read.csv("C:/Users/Admin/Documents/test_report/freewifi.csv")
wifi_suwon <-wifi_kyeong %>%  filter(설치시군구명 == "수원시")
wifi_suwon
wifi_telcenterKT <-wifi_suwon %>% filter(서비스제공사명 == "KT")
wifi_telcenterKT
wifi_telcenterSKT <-wifi_suwon %>% filter(서비스제공사명 == "SKT")
wifi_telcenterLGU <-wifi_suwon %>% filter(서비스제공사명 == "LGU+")
wifi_telcenterLGU
wifi_telcenterSKT
wifi_telcenterKT <-ifelse(wifi_telcenterKT$설치시설구분== , "관공서", "교육시설", "서민", "복지시설", "편의시설")
ggplot(data = )
install.packages("ggplot2")
library(dplyr)
wifi_kyeong <- read.csv("C:/Users/Admin/Documents/test_report/freewifi.csv")
wifi_kyeong <- read.csv(G:\3학년_A반\데이터베이스 설계 및 보안(금요일)\기말고사 data/test_report/freewifi.csv")
wifi_kyeong <- read.csv("G:\3학년_A반\데이터베이스 설계 및 보안(금요일)\기말고사 data\test_report/freewifi.csv")
wifi_suwon <-wifi_kyeong %>%  filter(설치시군구명 == "수원시")
wifi_kyeong <- read.csv("G:\test_report/freewifi.csv")
wifi_kyeong <- read.csv("G:\test_report/freewifi.csv")
read.csv("freewifi.csv")
wifi_kyeong <- read.csv("G:\test_report/freewifi.csv")
wifi_kyeong <- read.csv("G:\3학년_A반\데이터베이스 설계 및 보안(금요일)\기말고사 data\test_report/freewifi.csv")
read.csv("freewifi.csv")
wifi_suwon <-wifi_kyeong %>%  filter(설치시군구명 == "수원시")
wifi_kyeong <- read.csv("G:test_report/freewifi.csv")
wifi_kyeong <- read.csv("test_report/freewifi.csv")
wifi_kyeong <- read.csv(G:\3학년_A반\데이터베이스 설계 및 보안(금요일)\기말고사 "test_report/freewifi.csv")
wifi_kyeong <- read.csv(G:\3학년_A반\데이터베이스 설계 및 보안(금요일)\기말고사/freewifi.csv")
wifi_kyeong <- read.csv("G:\3학년_A반\데이터베이스 설계 및 보안(금요일)\기말고사/freewifi.csv")
install.packages("dplyr")
install.packages("ggplot2")
install.packages("dplyr")
library(dplyr)
wifi_kyeong <- read.csv("C:/Users/Admin/Documents/test_report/freewifi.csv")
wifi_kyeong <- read.csv("C:/Users/Admin/Documents/test_report/freewifi.csv")
wifi_kyeong <- read.csv("C:/Users/MS/Documents/test_report/freewifi.csv")
wifi_suwon
wifi_telcenterKT <-wifi_suwon %>% filter(서비스제공사명 == "KT")
wifi_suwon
wifi_suwon <-wifi_kyeong %>%  filter(설치시군구명 == "수원시")
wifi_suwon
wifi_telcenterKT <-wifi_suwon %>% filter(서비스제공사명 == "KT")
wifi_telcenterKT
wifi_telcenterSKT <-wifi_suwon %>% filter(서비스제공사명 == "SKT")
wifi_telcenterLGU <-wifi_suwon %>% filter(서비스제공사명 == "LGU+")
wifi_telcenterLGU
wifi_telcenterSKT
wifi_telcenterKT <-ifelse(wifi_telcenterKT$설치시설구분== , "관공서", "교육시설", "서민", "복지시설", "편의시설")
ggplot(data = )
wifi_telcenterSKT
wifi_kyeong <- read.csv("C:/Users/MS/Documents/test_report/freewifi.csv")
wifi_suwon <-wifi_kyeong %>%  filter(설치시군구명 == "수원시")
wifi_telcenterKT <-wifi_suwon %>% filter(서비스제공사명 == "KT")
install.packages("dplyr")
install.packages("ggplot2")
library(dplyr)
install.packages("ggplot2")
wifi_kyeong <- read.csv("C:/Users/MS/Documents/test_report/freewifi.csv")
wifi_suwon <-wifi_kyeong %>%  filter(설치시군구명 == "수원시")
wifi_suwon
wifi_telcenterKT <-wifi_suwon %>% filter(서비스제공사명 == "KT")
wifi_telcenterKT
wifi_telcenterKT
wifi_telcenterSKT <-wifi_suwon %>% filter(서비스제공사명 == "SKT")
wifi_telcenterLGU
wifi_telcenterLGU
wifi_telcenterSKT
wifi_telcenterKT <-ifelse(wifi_telcenterKT$설치시설구분== , "관공서", "교육시설", "서민", "복지시설", "편의시설")
wifi_telcenterLGU
wifi_suwon <- 서비스제공사명 %>%
group_by(drv) %>%
summarise(mean_hwy =  mean(hwy))
wifi_suwon <- 서비스제공사명 %>%
group_by(wifi_suwon) %>%
summarise(wifi_suwon=  wifi_suwon))
wifi_suwon <- 서비스제공사명 %>%
group_by(wifi_suwon) %>%
summarise(wifi_suwon=  wifi_suwon))
wifi_suwon <- 서비스제공사명 %>%
group_by(wifi_suwon) %>%
summarise(wifi_suwon=  서비스제공사))
wifi_suwon <- 서비스제공사명 %>%
group_by(wifi_suwon) %>%
summarise(wifi_suwon=  서비스제공사))
wifi_suwon <- 서비스제공사명 %>%
group_by(wifi_suwon) %>%
summarise(wifi_suwon=  서비스제공사명))
freewifi <- read.csv("C:/Users/MS/Documents/test_report/freewifi.csv")
wifi_suwon <-wifi_kyeong %>%  filter(설치시군구명 == "수원시")
wifi_suwon <-wifi_kyeong %>%  filter(설치시군구명 == "수원시")
wifi_suwon <-wifi_kyeong %>%  filter(설치시군구명 == "수원시")
wifi_suwon
install.packages("readxl")
library(readxl)
qplot(wifi_telcenterSKT$설치시군구명)
qplot(wifi_telcenterLGU$설치시군구명)
install.packages("dplyr")
install.packages("ggplot2")
library(dplyr)
library(ggplot2)
install.packages("readxl")
install.packages("qplot")
library(qplot)
install.packages("ggplot")
install.packages("readxl")
library(readxl)
install.packages("dplyr")
wifi_kyeong <- read.csv("C:/Users/MS/Documents/test_report/freewifi.csv")
wifi_kyeong <- read.csv("C:/Users/MS/Documents/test_report/freewifi.csv")
install.packages("readxl")
wifi_kyeong <- read.csv("E:\3학년_A반\데이터베이스 설계 및 보안(금요일)\기말고사 data\최종\freewifi.csv")
wifi_suwon <-wifi_kyeong %>%  filter(설치시군구명 == "수원시")
wifi_hwasung <-wifi_kyeong %>%  filter(설치시군구명 == "화성시")
wifi_suwon
table(wifi_suwon$서비스제공사명)
table(wifi_suwon$설치장소상세)
qplot(wifi_suwon$서비스제공사명)
wifi_telcenterKT <-ifelse(wifi_telcenterKT$설치시설구분==  "관공서", "교육시설", "서민", "복지시설", "편의시설")
class(wifi_kyeong$서비스제공사명)
summary(wifi_kyeong$서비스제공사명)
qplot(wifi_kyeong$station)
table(wifi_suwon$서비스제공사명)
qplot(wifi_suwon$서비스제공사명) + geom_bar()
install.packages("dplyr")
wifi_suwon <-wifi_kyeong %>%  filter(설치시군구명 == "수원시")
wifi_telcenterKT <-wifi_suwon %>% filter(서비스제공사명 == "KT")
wifi_kyeong <- read.csv("E:\3학년_A반\데이터베이스 설계 및 보안(금요일)\기말고사 data\최종\freewifi.csv")
library(dplyr)
install.packages("dplyr")
wifi_telcenterKT <-ifelse(wifi_telcenterKT$설치시설구분==  "관공서", "교육시설", "서민", "복지시설", "편의시설")
qplot(wifi_kyeong$station)
table(is.na(wifi_kyeong$설치제공사명))
install.packages("qplot")
install.packages("ggplot")
library(qplot)
library(ggplot)
library(readxl)
install.packages("dplyr")
install.packages("readxl")
wifi_kyeong <- read.csv("E:\3학년_A반\데이터베이스 설계 및 보안(금요일)\기말고사 data\최종\freewifi.csv")
qplot(wifi_suwon$설치년월)
wifi_kyeong <- read.csv("E:\3학년_A반\데이터베이스 설계 및 보안(금요일)\기말고사 data\최종\freewifi.csv")
wifi_kyeong <- read.csv("freewifi.csv")
wifi_hwasung <-wifi_kyeong %>%  filter(설치시군구명 == "화성시")
wifi_suwon <-wifi_kyeong %>%  filter(설치시군구명 == "수원시")
wifi_hwasung <-wifi_kyeong %>%  filter(설치시군구명 == "화성시")
wifi_suwon
wifi_telcenterKT <-wifi_suwon %>% filter(서비스제공사명 == "KT")
wifi_telcenterKT
wifi_telcenterSKT <-wifi_suwon %>% filter(서비스제공사명 == "SKT")
table(wifi_suwon$설치시설구분)
qplot(wifi_suwon$설치년월)
##전처리
summary(wifi_telcenterLGU$설치시군구명)
summary(wifi_telcenterLGU$설치장소상세)
summary(wifi_telcenterKT$설치장소상세)
qplot(wifi_suwon$서비스제공사명)
qplot(wifi_suwon$설치시설구분)
install.packages("qplot")
library(qplot)
install.packages("ggplot")
library(ggplot)
qplot(wifi_suwon$서비스제공사명)
qplot(wifi_suwon$설치시설구분)
qplot(wifi_suwon$설치장소상세)
qplot(wifi_suwon$설치년월)
qplot(wifi_telcenterSKT$설치시군구명)
qplot(wifi_telcenterLGU$설치시군구명)
install.packages("ggplot2")
install.packages("dplyr")
install.packages("ggplot2")
install.packages("readxl")
install.packages("qplot")
install.packages("ggplot")
install.packages("dplyr")
library(ggplot2)
library(dplyr)
library(readxl)
library(qplot)
library(ggplot)
library(readxl)
library(dplyr)
ggplot(data = wifi_suwon, aes(x= 설치장소상세, y = wifi_suwon)) + geom_col() + coord_fixed()
wifi_suwon$설치장소상세 <- ifelse(wifi_suwon$설치장소상세 == , "실내")
table(wifi_suwon$서비스제공사명)
table(wifi_suwon$설치장소상세)
table(wifi_suwon$설치시설구분)
qplot(wifi_suwon$설치년월)
##전처리
summary(wifi_telcenterLGU$설치시군구명)
summary(wifi_telcenterLGU$설치장소상세)
qplot(wifi_suwon$서비스제공사명)
income <- read.csv("freewifi.csv")
income_ex <-income_ex
income_ex <-income
ggplot(data = income_ex, aes(x=borough, y=person)) + geom_bar()
ggplot(data = income_ex, aes(x=borough, y=person)) + geom_col()
ggplot(data = income_ex, aes(x=설치시군구명, y=서비스제공사명)) + geom_col()
ggplot(data = income_ex, aes(x=설치년, y=서비스제공사명)) + geom_col()
ggplot(data = income_ex, aes(x=설치년월, y=서비스제공사명)) + geom_col()
ggplot(data = income_ex, aes(x=설치년월)) + geom_col()
