df_gunpo$법정동명 <- recode(df_gunpo$법정동명, "경기도 군포시 대야미동 662-2" = "경기도 군포시 대야미동")
df_gunpo$선풍기보유대수 <- as.numeric(df_gunpo$선풍기보유대수)
df_gunpo$에어컨보유대수 <- as.numeric(df_gunpo$에어컨보유대수)
df_gunpo
df_gunpo[, c("선풍기보유대수", "에어컨보유대수")][is.na(df_gunpo[, c("선풍기보유대수", "에어컨보유대수")])] <- 0
df_gunpo
ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수)) + geom_col()
ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, 에어컨보유대수)) + geom_col()
ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, 에어컨보유대수)) + geom_col()
ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수)) + geom_col()
ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수)) + geom_col(position = "dodge")
ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수)) + geom_col(position = "dodge")
ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수)) + geom_col()
ggplot(data = df_gunpo, aes(x = 법정동명, y = c(선풍기보유대수,에어컨보유대수)) + geom_col()
ggplot(data = df_gunpo, aes(x = 법정동명, y = c(선풍기보유대수,에어컨보유대수)) + geom_col()
ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수) + geom_col()
ggplot(data = df_gunpo, aes(x = 법정동명, y = c(선풍기보유대수, 에어컨보유대수))) + geom_col()
ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수)) + geom_col()
ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수)) + geom_col()
lines(법정동명, 에어컨보유대수, col="red")
lines(법정동명, 에어컨보유대수, col="red")
lines("법정동명", 에어컨보유대수, col="red")
lines("법정동명", "에어컨보유대수", col="red")
df_gunpo
mean(df_gunpo$선풍기보유대수)
mean(df_gunpo$에어컨보유대수)
df_gunpo <- df_gunpo %>%
filter(grepl("2019..", df_gunpo$운영종료일자))
mode(df_gunpo$운영종료일자)
mode(df_gunpo$운영종료일자)
df_gunpo <- df_gunpo %>%
filter(grepl("2019..", df_gunpo$운영종료일자))
df_gunpo
View(df_gunpo)
ggplot(data = df_gunpo, aes(x = 법정동명, y = 보유대수)) + geom_col()
ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수)) + geom_col()
ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) + geom_col()
df_gunpo <- df_gunpo %>%
filter(grepl("2019..", df_gunpo$운영종료일자)) %>%
group_by(법적동명)
df_gunpo <- df_gunpo %>%
filter(grepl("2019..", df_gunpo$운영종료일자)) %>%
group_by("법적동명")
df_gunpo
df_gunpo <- df_gunpo %>%
filter(grepl("2019..", df_gunpo$운영종료일자))
df_gunpo
df_gunpo <- df_rest1 %>%
filter(grepl("..군포시", df_rest1$법정동명))
df_gunpo
df_gunpo$법정동명 <- recode(df_gunpo$법정동명, "경기도 군포시 대야미동 659-1" = "경기도 군포시 대야미동")
df_gunpo$법정동명 <- recode(df_gunpo$법정동명, "경기도 군포시 대야미동 662-2" = "경기도 군포시 대야미동")
df_gunpo$선풍기보유대수 <- as.numeric(df_gunpo$선풍기보유대수)
df_gunpo$에어컨보유대수 <- as.numeric(df_gunpo$에어컨보유대수)
df_gunpo[, c("선풍기보유대수", "에어컨보유대수")][is.na(df_gunpo[, c("선풍기보유대수", "에어컨보유대수")])] <- 0
df_gunpo <- df_gunpo %>%
filter(grepl("2019..", df_gunpo$운영종료일자))
df_gunpo
df_gunpo <- df_gunpo %>%
filter(grepl("2019..", df_gunpo$운영종료일자)) %>%
group_by(법정동명)
df_gunpo
View(df_gunpo)
df_gunpo <- df_gunpo %>%
filter(grepl("2019..", df_gunpo$운영종료일자))
df_gunpo <- df_gunpo %>%
filter(grepl("2019..", df_gunpo$운영종료일자))
df_gunpo <- df_rest1 %>%
filter(grepl("..군포시", df_rest1$법정동명))
df_gunpo
df_gunpo$법정동명 <- recode(df_gunpo$법정동명, "경기도 군포시 대야미동 659-1" = "경기도 군포시 대야미동")
df_gunpo$법정동명 <- recode(df_gunpo$법정동명, "경기도 군포시 대야미동 662-2" = "경기도 군포시 대야미동")
df_gunpo$선풍기보유대수 <- as.numeric(df_gunpo$선풍기보유대수)
df_gunpo$에어컨보유대수 <- as.numeric(df_gunpo$에어컨보유대수)
df_gunpo[, c("선풍기보유대수", "에어컨보유대수")][is.na(df_gunpo[, c("선풍기보유대수", "에어컨보유대수")])] <- 0
df_gunpo <- df_gunpo %>%
filter(grepl("2019..", df_gunpo$운영종료일자))
df_gunpo
df_gunpo <- df_gunpo[c(order(df_gunpo$법정동명)),]
df_gunpo
df_gunpo <- df_gunpo[,c(order(df_gunpo$법정동명))]
df_gunpo <- df_gunpo[,c(order(df_gunpo$법정동명))]
df_gunpo <- df_gunpo[c(order(df_gunpo$법정동명)),]
df_gunpo
df_gunpo[, c("선풍기보유대수", "에어컨보유대수")][is.na(df_gunpo[c("선풍기보유대수", "에어컨보유대수")]),] <- 0
df_gunpo <- df_rest1 %>%
filter(grepl("..군포시", df_rest1$법정동명))
df_gunpo
df_gunpo$법정동명 <- recode(df_gunpo$법정동명, "경기도 군포시 대야미동 659-1" = "경기도 군포시 대야미동")
df_gunpo$법정동명 <- recode(df_gunpo$법정동명, "경기도 군포시 대야미동 662-2" = "경기도 군포시 대야미동")
df_gunpo$선풍기보유대수 <- as.numeric(df_gunpo$선풍기보유대수)
df_gunpo$에어컨보유대수 <- as.numeric(df_gunpo$에어컨보유대수)
df_gunpo[, c("선풍기보유대수", "에어컨보유대수")][is.na(df_gunpo[c("선풍기보유대수", "에어컨보유대수")]),] <- 0
df_gunpo[, c("선풍기보유대수", "에어컨보유대수")][is.na(df_gunpo[,c("선풍기보유대수", "에어컨보유대수")])] <- 0
df_gunpo <- df_gunpo %>%
filter(grepl("2019..", df_gunpo$운영종료일자))
df_gunpo <- df_gunpo[c(order(df_gunpo$법정동명)),]
df_gunpo
View(df_gunpo)
mean(df_gunpo$선풍기보유대수)
mean(df_gunpo$에어컨보유대수)
dim(df_gunpo)
nstall.packages("gridExtra")
install.packages("gridExtra")
library(gridExtra)
df_gunpo
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) + geom_col()
a2 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수, fill = 법정동명)) + geom_col()
grid.arrange(a1, a2, ncol=2)
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
scale_x_discrete(limits = c(1,2,3,4,5,6,7,8))
a2 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수, fill = 법정동명)) +
geom_col() +
scale_x_discrete(limits = c(1,2,3,4,5,6,7,8))
grid.arrange(a1, a2, ncol=2)
df_gunpo$법정동명코드 <- df_gunpo %>%
filter(grepl("..금정동", df_gunpo$법정동명)) <- 1
df_gunpo
df_gunpo
a1 = ggplot(data = df_gunpo, aes(x = 법정동명코드, y = 선풍기보유대수, fill = 법정동명)) + geom_col()
a2 = ggplot(data = df_gunpo, aes(x = 법정동명코드, y = 에어컨보유대수, fill = 법정동명)) + geom_col()
grid.arrange(a1, a2, ncol=2)
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) + geom_col()
a2 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수, fill = 법정동명)) + geom_col()
grid.arrange(a1, a2, ncol=2)
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
a2 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
grid.arrange(a1, a2, ncol=2)
grid.arrange(a1, a2, nrow =2)
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
geom_text(aes(label=선풍기보유대수), vjust=1.5, colour="white") +
coord_flip()
a2 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수, fill = 법정동명)) +
geom_col() +
geom_text(aes(label=에어컨보유대수), vjust=1.5, colour="white") +
coord_flip()
grid.arrange(a1, a2, nrow =2)
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
geom_text(aes(label=선풍기보유대수), vjust=1, colour="white") +
coord_flip()
a2 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수, fill = 법정동명)) +
geom_col() +
geom_text(aes(label=에어컨보유대수), vjust=1, colour="white") +
coord_flip()
grid.arrange(a1, a2, nrow =2)
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
geom_text(aes(label=선풍기보유대수), vjust=-1, colour="white") +
coord_flip()
a2 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수, fill = 법정동명)) +
geom_col() +
geom_text(aes(label=에어컨보유대수), vjust=-1, colour="white") +
coord_flip()
grid.arrange(a1, a2, nrow =2)
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
geom_text(aes(label=에어컨보유대수), vjust=-1, colour="white") +
coord_flip()
a2 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수, fill = 법정동명)) +
geom_col() +
geom_text(aes(label=에어컨보유대수), vjust=-1, colour="white") +
coord_flip()
grid.arrange(a1, a2, nrow =2)
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
geom_text(aes(label=선풍기보유대수), vjust=-1, colour="white")
a2 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수, fill = 법정동명)) +
geom_col() +
geom_text(aes(label=에어컨보유대수), vjust=-1, colour="white")
a2
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
geom_text(aes(label=선풍기보유대수), vjust=1.5, colour="white")
a2 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수, fill = 법정동명)) +
geom_col() +
geom_text(aes(label=에어컨보유대수), vjust=1.5, colour="white")
a2
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
geom_text()
a1
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
geom_text()
a1
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
geom_text(label_value(에어컨보유대수))
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
geom_text(label = 에어컨보유대수)
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
geom_text(aes(label = 선풍기 보유대수))
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
geom_text(aes(label = 선풍기보유대수))
a1
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
a2 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
grid.arrange(a1, a2, nrow =2)
View(list_rest)
View(df_rest)
df_gunpo
df_sanbon <- df_gunpo %>%
filter(grepl("..산본동"))
df_sanbon <- df_gunpo %>%
filter(grepl("..산본동", df_gunpo$법정동명))
df_sanbon <- df_gunpo %>%
filter(grepl("..산본동", df_gunpo$법정동명))
df_sanbon
df_rest1 <- df_rest %>%
select(법정동명, 쉼터유형구분, 시설면적, 이용가능인원수, 선풍기보유대수, 에어컨보유대수, 운영종료일자)
df_rest1
df_gunpo <- df_rest1 %>%
filter(grepl("..군포시", df_rest1$법정동명))
df_gunpo
df_gunpo$법정동명 <- recode(df_gunpo$법정동명, "경기도 군포시 대야미동 659-1" = "경기도 군포시 대야미동")
df_gunpo$법정동명 <- recode(df_gunpo$법정동명, "경기도 군포시 대야미동 662-2" = "경기도 군포시 대야미동")
df_gunpo$선풍기보유대수 <- as.numeric(df_gunpo$선풍기보유대수)
df_gunpo$에어컨보유대수 <- as.numeric(df_gunpo$에어컨보유대수)
df_gunpo[, c("선풍기보유대수", "에어컨보유대수")][is.na(df_gunpo[,c("선풍기보유대수", "에어컨보유대수")])] <- 0
mode(df_gunpo$운영종료일자)
df_gunpo <- df_gunpo %>%
filter(grepl("2019..", df_gunpo$운영종료일자))
df_gunpo <- df_gunpo[c(order(df_gunpo$법정동명)),]
df_gunpo
View(df_gunpo)
mean(df_gunpo$선풍기보유대수)
mean(df_gunpo$에어컨보유대수)
dim(df_gunpo)
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
a2 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
grid.arrange(a1, a2, nrow =2)
df_sanbon <- df_gunpo %>%
filter(grepl("..산본동", df_gunpo$법정동명))
df_sanbon
df_gumjeong <- df_gunpo %>%
filter(grepl("..금정동", df_gunpo$법정동명))
df_gumjeong
df_dangdong <- df_gunpo %>%
filter(grepl("..당동", df_gunpo$법정동명))
df_dangdong
df_gunpo$에어컨보유대수 <- as.numeric(df_gunpo$시설면적)
df_gunpo$에어컨보유대수 <- as.numeric(df_gunpo$시설면적)
df_gunpo$에어컨보유대수 <- as.numeric(df_gunpo$이용가능인원수)
df_gunpo$에어컨보유대수 <- as.numeric(df_gunpo$이용가능인원수)
df_rest1 <- df_rest %>%
select(법정동명, 쉼터유형구분, 시설면적, 이용가능인원수, 선풍기보유대수, 에어컨보유대수, 운영종료일자)
df_rest1
df_gunpo <- df_rest1 %>%
filter(grepl("..군포시", df_rest1$법정동명))
df_gunpo
df_gunpo$법정동명 <- recode(df_gunpo$법정동명, "경기도 군포시 대야미동 659-1" = "경기도 군포시 대야미동")
df_gunpo$법정동명 <- recode(df_gunpo$법정동명, "경기도 군포시 대야미동 662-2" = "경기도 군포시 대야미동")
df_gunpo$선풍기보유대수 <- as.numeric(df_gunpo$선풍기보유대수)
df_gunpo$에어컨보유대수 <- as.numeric(df_gunpo$에어컨보유대수)
df_gunpo$에어컨보유대수 <- as.numeric(df_gunpo$시설면적)
df_gunpo$에어컨보유대수 <- as.numeric(df_gunpo$이용가능인원수)
df_gunpo[, c("선풍기보유대수", "에어컨보유대수")][is.na(df_gunpo[,c("선풍기보유대수", "에어컨보유대수")])] <- 0
mode(df_gunpo$운영종료일자)
df_gunpo <- df_gunpo %>%
filter(grepl("2019..", df_gunpo$운영종료일자))
df_gunpo <- df_gunpo[c(order(df_gunpo$법정동명)),]
df_gunpo
mean(df_gunpo$선풍기보유대수)
mean(df_gunpo$에어컨보유대수)
mean(df_gunpo$에어컨보유대수)
df_gunpo$에어컨보유대수 <- as.numeric(df_gunpo$에어컨보유대수)
df_gunpo[, c("선풍기보유대수", "에어컨보유대수")][is.na(df_gunpo[,c("선풍기보유대수", "에어컨보유대수")])] <- 0
mode(df_gunpo$운영종료일자)
df_gunpo <- df_gunpo %>%
filter(grepl("2019..", df_gunpo$운영종료일자))
df_gunpo <- df_gunpo[c(order(df_gunpo$법정동명)),]
df_gunpo
df_rest <- data.frame(list_rest)
df_rest
df_fan <- df_rest %>%
select(선풍기보유대수)
df_fan
df_fanNum <- as.numeric(df_fan$선풍기보유대수)
df_fanNum
fanNum <- na.omit(df_fanNum)
mean(fanNum)
df_air <- df_rest %>%
select(에어컨보유대수)
df_air
df_airNum <- as.numeric(df_air$에어컨보유대수)
df_airNum
airNum <- na.omit(df_airNum)
mean(airNum)
df_rest1 <- df_rest %>%
select(법정동명, 쉼터유형구분, 시설면적, 이용가능인원수, 선풍기보유대수, 에어컨보유대수, 운영종료일자)
df_rest1
df_gunpo <- df_rest1 %>%
filter(grepl("..군포시", df_rest1$법정동명))
df_gunpo
df_gunpo$법정동명 <- recode(df_gunpo$법정동명, "경기도 군포시 대야미동 659-1" = "경기도 군포시 대야미동")
df_gunpo$법정동명 <- recode(df_gunpo$법정동명, "경기도 군포시 대야미동 662-2" = "경기도 군포시 대야미동")
df_gunpo$선풍기보유대수 <- as.numeric(df_gunpo$선풍기보유대수)
df_gunpo$에어컨보유대수 <- as.numeric(df_gunpo$에어컨보유대수)
df_gunpo$시설면적 <- as.numeric(df_gunpo$시설면적)
df_gunpo$이용가능인원수 <- as.numeric(df_gunpo$이용가능인원수)
df_gunpo$시설면적 <- na.omit(df_gunpo$시설면적)
df_gunpo$시설면적 <- na.omit(df_gunpo$시설면적)
df_gunpo$이용가능인원수 <- na.omit(df_gunpo$이용가능인원수)
df_gunpo[, c("선풍기보유대수", "에어컨보유대수")][is.na(df_gunpo[,c("선풍기보유대수", "에어컨보유대수")])] <- 0
df_gunpo <- df_gunpo %>%
filter(grepl("2019..", df_gunpo$운영종료일자))
df_gunpo <- df_gunpo[c(order(df_gunpo$법정동명)),]
df_gunpo
dim(df_gunpo)
dim(df_gunpo)
mean(df_gunpo$선풍기보유대수)
mean(df_gunpo$에어컨보유대수)
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
a2 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
grid.arrange(a1, a2, nrow =2)
grid.arrange(a1, a2, nrow = 2)
dim(df_gunpo %>%
filter(grepl("..산본동", df_gunpo$법정동명)))
dim(df_sanbon)
mean(df_gunpo %>%
filter(grepl("..산본동", df_gunpo$법정동명)) %>%
select(에어컨보유대수))
df_gunpo %>%
filter(grepl("..산본동", df_gunpo$법정동명)) %>%
select(에어컨보유대수)
mean(df_gunpo %>%
filter(grepl("..산본동", df_gunpo$법정동명)) %>%
select(에어컨보유대수))
mode(df_gunpo$에어컨보유대수)
mode(df_gunpo$에어컨보유대수)
mean(df_gunpo %>%
filter(grepl("..산본동", df_gunpo$법정동명)) %>%
select(에어컨보유대수))
mean(df_gunpo %>%
filter(grepl("..산본동", df_gunpo$법정동명)) %>%
select(에어컨보유대수))
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = reorder(선풍기보유대수), fill = 법정동명)) +
geom_col() +
coord_flip()
a2 = ggplot(data = df_gunpo, aes(x = 법정동명, y = reorder(에어컨보유대수), fill = 법정동명)) +
geom_col() +
coord_flip()
grid.arrange(a1, a2, nrow = 2)
grid.arrange(a1, a2, nrow = 2)
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
a2 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
grid.arrange(a1, a2, nrow = 2)
a1 = ggplot(data = df_gunpo, aes(x = reorder(법정동명), y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
a2 = ggplot(data = df_gunpo, aes(x = reorder(법정동명), y = 에어컨보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
grid.arrange(a1, a2, nrow = 2)
grid.arrange(a1, a2, nrow = 2)
a1 = ggplot(data = df_gunpo, aes(x = reorder("법정동명"), y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
a2 = ggplot(data = df_gunpo, aes(x = reorder("법정동명"), y = 에어컨보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
grid.arrange(a1, a2, nrow = 2)
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
a2 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
grid.arrange(a1, a2, nrow = 2)
gan1 <- df_gunpo %>%
filter(grepl("..산본동", df_gunpo$법정동명)) %>%
select(에어컨보유대수)
mean(gan1)
gan1
mode(gan1)
mode(df_gunpo$에어컨보유대수)
mode(df_gunpo$에어컨보유대수)
gan1 <- as.numeric(df_gunpo %>%
filter(grepl("..산본동", df_gunpo$법정동명)) %>%
select(에어컨보유대수))
gan1 <- as.numeric(df_gunpo %>%
filter(grepl("..산본동", df_gunpo$법정동명)) %>%
select(에어컨보유대수))
df_gumjeong
mean(df_gumjeong$에어컨보유대수)
mean(df_gumjeong$에어컨보유대수)
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)
install.packages("devtools")
library(devtools)
install.packages("gridExtra")
library(gridExtra)
list_rest <- read_excel("C:/Users/Admin/Desktop/최종/20172311/rest.xls")
View(list_rest)
mode(list_rest)
df_rest <- data.frame(list_rest)
df_rest
df_fan <- df_rest %>%
select(선풍기보유대수)
df_fan <- df_rest %>%
select(선풍기보유대수)
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
df_airNum <- as.numeric(df_air$에어컨보유대수)
df_airNum
is.na(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
df_gunpo$법정동명 <- recode(df_gunpo$법정동명, "경기도 군포시 대야미동 659-1" = "경기도 군포시 대야미동")
df_gunpo$법정동명 <- recode(df_gunpo$법정동명, "경기도 군포시 대야미동 662-2" = "경기도 군포시 대야미동")
df_gunpo$선풍기보유대수 <- as.numeric(df_gunpo$선풍기보유대수)
df_gunpo$에어컨보유대수 <- as.numeric(df_gunpo$에어컨보유대수)
df_gunpo$시설면적 <- as.numeric(df_gunpo$시설면적)
df_gunpo$이용가능인원수 <- as.numeric(df_gunpo$이용가능인원수)
df_gunpo$시설면적 <- na.omit(df_gunpo$시설면적)
df_gunpo$이용가능인원수 <- na.omit(df_gunpo$이용가능인원수)
df_gunpo[, c("선풍기보유대수", "에어컨보유대수")][is.na(df_gunpo[,c("선풍기보유대수", "에어컨보유대수")])] <- 0
mode(df_gunpo$운영종료일자)
df_gunpo <- df_gunpo %>%
filter(grepl("2019..", df_gunpo$운영종료일자))
df_gunpo <- df_gunpo[c(order(df_gunpo$법정동명)),]
df_gunpo
View(df_gunpo)
dim(df_gunpo)
mean(df_gunpo$선풍기보유대수)
mean(df_gunpo$에어컨보유대수)
a1 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 선풍기보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
a2 = ggplot(data = df_gunpo, aes(x = 법정동명, y = 에어컨보유대수, fill = 법정동명)) +
geom_col() +
coord_flip()
grid.arrange(a1, a2, nrow = 2)
View(list_rest)
View(list_rest)
grid.arrange(a1, a2, nrow = 2)
View(df_gunpo)
dim(df_gunpo)
mean(df_gunpo$선풍기보유대수)
mean(df_gunpo$에어컨보유대수)
df_gunpo %>%
filetr(grepl("노인시설..", df_gunpo$쉼터유형구분))
df_gunpo %>%
filetr(grepl("노인시설..", df_gunpo$쉼터유형구분))
df_gunpo %>%
filter(grepl("노인시설..", df_gunpo$쉼터유형구분))
df_gunpo1 <- df_gunpo %>%
filter(grepl("노인시설..", df_gunpo$쉼터유형구분))
dim(df_gunpo1)
View(df_gunpo1)
View(df_gunpo)
df_gunpo1 <- df_gunpo %>%
filter("노인시설",df_gunpo$쉼터유형구분))
df_gunpo1 <- df_gunpo %>%
filter("노인시설",df_gunpo$쉼터유형구분))
df_gunpo1 <- df_gunpo %>%
filter(grepl("..노인시설", df_gunpo$쉼터유형구분))
View(df_gunpo1)
df_gunpo1
df_gunpo
df_gunpo1 <- df_gunpo %>%
filter(df_gunpo$쉼터유형구분 == "노인시설")
df_gunpo1
dim(df_gunpo1)
