install.packages('readxl')
library(readxl)
install.packages('dplyr')
library(dplyr)
install.packages('ggplot2')
library(ggplot2)
install.packages("ggiraphExtra")
library(ggiraphExtra)
install.packages("stringi")
library(stringi)
list_rest <- read_excel("C:/Users/Admin/Desktop/20172311/rest.xls")
install.packages("devtools")
library(devtools)
View(list_rest)

summary(list_rest)
mode(list_rest)

df_rest <- data.frame(list_rest)
df_rest
View(df_rest)

df_fan <- df_rest %>%
  select(선풍기보유대수)
df_fan
mode(df_fan)

mode(df_fan$선풍기보유대수)

df_fanNum <- as.numeric(df_fan$선풍기보유대수)
df_fanNum
is.na(df_fanNum)

fanNum <- na.omit(df_fanNum)
mean(fanNum)

df_air <- df_rest %>%
  select(에어컨보유대수)
df_air
is.na(df_airNum)

df_airNum <- as.numeric(df_air$에어컨보유대수)
df_airNum

airNum <- na.omit(df_airNum)
mean(airNum)

df_rest1 <- df_rest %>%
  select(법정동명, 선풍기보유대수, 에어컨보유대수, 운영종료일자)

df_rest1

View(df_rest1)

df_gunpo <- df_rest1 %>%
  filter(grepl("..군포시", df_rest1$법정동명))
df_gunpo
View(df_gunpo)

gunpo_fanNum <- as.numeric(df_gunpo$선풍기보유대수)
gunpo_fanNum1 <-mean(gunpo_airNum)
gunpo_fanNum1

gunpo_airNum <- as.numeric(df_gunpo$에어컨보유대수)
gunpo_airNum1 <-mean(gunpo_airNum)
gunpo_airNum1

ggplot(data = df_suwon, aes(x = 법정동명, y = 선풍기보유대수)) + geom_col()
ggplot(data = df_rest, aes(x = 관리기관명, y = 선풍기보유대수)) + geom_col()
ggplot(data = df_rest, aes(x = 관리기관명, y = 에어컨보유대수)) + geom_col()


