-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path191215_visualization_lowLoans.R
99 lines (76 loc) · 3.21 KB
/
191215_visualization_lowLoans.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
setwd("C:/Users/student/Desktop/sam/팀 프로젝트 (메인)")
rm(list = ls())
library(dplyr)
library(ggplot2)
# 1. 성북구 도서관 시각화
load('2018년 성북구 도서관별 대출목록.RData')
str(sb_lib_list$달빛마루도서관)
# temp_list = sb_lib_list$달빛마루도서관
# temp_df_begin = temp_list[[1]]
# temp_df_end = temp_list[[ length(temp_list) ]]
# length(temp_df_begin[ temp_df_begin['대출건수']<1 ]); length(temp_df_begin$도서명)
# length(temp_df_end[ temp_df_end['대출건수']<1 ]); length(temp_df_end$도서명)
ratio_vec = c()
for (lib in names(sb_lib_list)) {
temp_list = sb_lib_list[[lib]]
temp_df = temp_list[[ length(temp_list) ]]
temp_ratio = length( temp_df$도서명[ temp_df['대출건수'] < 3 ] ) / length(temp_df$도서명) * 100
ratio_vec = c(ratio_vec, temp_ratio)
}
ratio_vec; names(sb_lib_list)
big_ratio_vec = ratio_vec[ratio_vec > 20]
names = names(sb_lib_list)[ratio_vec > 20]
# names = substr( names, 1, 5 ); length(unique(names)) == length(names)
big_ratio_vec; names
plot_df = data.frame(lib = names, ratio=big_ratio_vec) %>%
arrange(desc(ratio))
ggplot(data = plot_df, aes(x=reorder(lib, -ratio), y=ratio)) +
geom_col() +
labs(title="성북구 도서관별 누적 대출건수 2건 이하 도서 비율 (20% 이상)",
y = '대출건수 2건 이하 도서 비율(%)',
x = '도서관') +
ylim(0, 100)
# 2. 도봉구 도서관 시각화
load('2018년 도봉구 도서관별 대출목록.RData')
ratio_vec = c()
for (lib in names(gu_lib_list)) {
temp_list = gu_lib_list[[lib]]
temp_df = temp_list[[ length(temp_list) ]]
temp_ratio = length( temp_df$도서명[ temp_df['대출건수'] < 3 ] ) / length(temp_df$도서명) * 100
ratio_vec = c(ratio_vec, temp_ratio)
}
ratio_vec
names(gu_lib_list)
big_ratio_vec = ratio_vec[ratio_vec > 45]
names = names(gu_lib_list)[ratio_vec > 45]
# names = substr( names, 1, 7 ); length(unique(names)) == length(names)
big_ratio_vec; names
plot_df = data.frame(lib = names, ratio=big_ratio_vec) %>%
arrange(desc(ratio))
ggplot(data = plot_df, aes(x=reorder(lib, -ratio), y=ratio)) +
geom_col() +
labs(title="도봉구 도서관별 누적 대출건수 2건 이하 도서 비율 (45% 이상)",
y = '대출건수 2건 이하 도서 비율(%)',
x = '도서관')
# 3. 강북구 도서관 시각화
load('2018년 강북구 도서관별 대출목록.RData')
ratio_vec = c()
for (lib in names(gu_lib_list)) {
temp_list = gu_lib_list[[lib]]
temp_df = temp_list[[ length(temp_list) ]]
temp_ratio = length( temp_df$도서명[ temp_df['대출건수'] < 3 ] ) / length(temp_df$도서명) * 100
ratio_vec = c(ratio_vec, temp_ratio)
}
ratio_vec; names(gu_lib_list)
big_ratio_vec = ratio_vec[ratio_vec > 20]
names = names(gu_lib_list)[ratio_vec > 20]
# names = substr( names(gu_lib_list), 1, 6 ); length(unique(names)) == length(names)
# big_ratio_vec; names
plot_df = data.frame(lib = names, ratio=big_ratio_vec) %>%
arrange(desc(ratio))
ggplot(data = plot_df, aes(x=reorder(lib, -ratio), y=ratio)) +
geom_col() +
labs(title="강북구 도서관별 누적 대출건수 2건 이하 도서 비율 (20% 이상)",
y = '대출건수 2건 이하 도서 비율(%)',
x = '도서관') +
ylim(0, 100)