install.packages("dplyr")

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

df_new<-df_raw
df_new
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 = )