install.packages("dplyr")

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

install.packages("ggplot")
library(ggplot)

install.packages("readxl")
library(readxl)

install.packages("dplyr")
library(dplyr)
wifi_kyeong <- read.csv("C:/Users/MS/Documents/test_report/freewifi.csv")


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")

wifi_telcenterLGU <-wifi_suwon %>% filter(서비스제공사명 == "LGU+")

wifi_telcenterLGU

wifi_telcenterSKT

wifi_telcenterKT <-ifelse(wifi_telcenterKT$설치시설구분== , "관공서", "교육시설", "서민", "복지시설", "편의시설")
ggplot(data = )

class(wifi_kyeong$서비스제공사명)

summary(wifi_kyeong$서비스제공사명)

qplot(wifi_kyeong$station)


wifi_kyeong <- ifelse(wifi_kyeong$설치장소명 %in% c(0, 99), MA, wifi_kyeong$설치장소명)


table(is.na(wifi_kyeong$설치제공사명))


wifi_suwon <- 설치시설구분 %>% 
  filter(!is.na(suwon)) %>% 
  group_by(설치시설구분) %>% 
  summarise(mean.Date= mean(suwon)

wifi_suwon
        
summary(wifi_suwon$설치시군구명)    

qplot(wifi_suwon$설치시군구명)

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$설치년월)
table(wifi_suwon$설치시설구분)
qplot(wifi_suwon$설치장소상세)
qplot(wifi_suwon$설치시설구분)
qplot(wifi_suwon$서비스제공사명)
qplot(wifi_suwon$설치년월)
summary(wifi_telcenterLGU$설치시군구명)
summary(wifi_telcenterLGU$설치장소상세)
summary(wifi_telcenterKT$설치장소상세)
summary(wifi_telcenterSKT$설치장소상세)

summary(wifi_telcenterSKT$설치시군구명)


qplot(wifi_telcenterLGU$설치시군구명)

qplot(wifi_telcenterSKT$설치시군구명)
123
