install.packages("ggplot2")
library(ggplot2)
install.packages("dplyr")
library(dplyr)
install.packages("readxl")
library(readxl)
test<- read.csv("c:/gimalproject/부산지하철_와이파이.csv") 
test
df_lovefamily<- read_excel("lovefamily.xlsx")
df_lovefamily
View(df_lovefamily)

# 전체 통신사 3사 나누기, 전처리 과정 skt,lg,kt만 있는 행을 추출하기 위해  
test %>%  filter (회사명 == "SKT")
dim(test %>%  filter (회사명 == "SKT"))
test %>%  filter(회사명 =="KT")
dim(test %>%  filter (회사명 == "KT"))
test %>%  filter (회사명 == "LGU+")
dim(test %>%  filter (회사명 == "LGU+"))
tong<-data.frame(tongsinsa=c("SKT","KT","LGU+"),
                sum=c(114,111,111))
dim(test)
tong_a<-tong
tong_a

ggplot(data=tong_a, aes(x=tongsinsa, y=sum))+geom_col()

# 1호선 통신사 3사 비율
test %>% filter(회사명=="SKT" & 호선 =="1호선")
dim(test %>% filter(회사명=="SKT" & 호선 =="1호선")) ## 40개 
dim(test %>% filter(회사명=="KT" & 호선 =="1호선")) ##37개
dim(test %>% filter(회사명=="LGU+" & 호선 =="1호선"))##37개

onehosun<-data.frame(tongsinsa=c("SKT","KT","LGU+"),
                     sum=c(40,37,37))
onehosun

ggplot(data=onehosun,aes(x=tongsinsa, y=sum))+geom_col()
