LG & 두산 홈 평균 관중 비교

Won 4/11/2019

KBO_attendance <- read_csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSPeNB2gKW-RpD4UnBREQW3C1dD3_9rwuE5s2h6L7MDqcWhGzfEUJ_qbyRjkpLcVBYY_rBK62OoyNbn/pub?gid=0&single=true&output=csv")

## Parsed with column specification:
## cols(
##   year = col_double(),
##   team = col_character(),
##   cate = col_character(),
##   num = col_double()
## )

프로야구 구단별 홈 평균 관중 1982~2018

편의상 삼미-청보-태평양-현대-히어로즈는 한 번에 계산

KBO_attendance_byteam <- KBO_attendance %>%
  filter(cate == "mean") %>%
  group_by(team) %>%
  summarise(ave = mean(num)) %>%
  arrange(desc(ave))
KBO_attendance_byteam$ave <- round(KBO_attendance_byteam$ave, 0)
KBO_attendance_byteam

## # A tibble: 11 x 2
##    team           ave
##    <chr>        <dbl>
##  1 LG           12648
##  2 롯데         11505
##  3 두산         10463
##  4 SK           10135
##  5 KT            9316
##  6 NC            7329
##  7 삼성          6824
##  8 KIA           6109
##  9 한화          5202
## 10 현대히어로즈  4983
## 11 쌍방울        2500

Bar 차트로 표현한 구단별 평균 관중

ggplot(data = KBO_attendance_byteam, 
       aes(x = reorder(team, ave), y = ave)) +
  geom_bar(stat = "identity", fill = "Dodger Blue", colour = "black") +
  coord_flip() +
  geom_text(aes(label = ave), size = 4, vjust = 0) 

그래프1

서울 라이벌 두산-LG 연도별 평균 관중

KBO_attendance_rival <- KBO_attendance %>%
  filter(team == "LG" & cate == "mean" | team == "두산" & cate == "mean")

ggplot(data = KBO_attendance_rival, 
       aes(x = year, y = num, color = team)) +
  geom_line() +
  geom_point() +
  geom_smooth(method = lm)

그래프2