[R] 3. tsibbledata

tsibbledata

• tsibbledata 라이브러리는 시계열 데이터로 적절한 예시로 쓰일 수 있는 데이터들을 제공해줍니다.
• github에서 나와 있는 예시는 olympic_running 데이터입니다.
• 아래 데이터는 올림픽 달리기 종목의 성별 최고기록에 관한 데이터라고 합니다.

olympic_running

## # A tsibble: 312 x 4 [4Y]
## # Key:       Length, Sex [14]
##     Year Length Sex    Time
##    <int>  <int> <chr> <dbl>
##  1  1896    100 men    12  
##  2  1900    100 men    11  
##  3  1904    100 men    11  
##  4  1908    100 men    10.8
##  5  1912    100 men    10.8
##  6  1916    100 men    NA  
##  7  1920    100 men    10.8
##  8  1924    100 men    10.6
##  9  1928    100 men    10.8
## 10  1932    100 men    10.3
## # … with 302 more rows

• 이 데이터를 가지고 성별 달리기 최고 기록에 대한 값을 그래프로 나타낸 예제입니다.
  • 참고로 1916, 1940, 1944년의 경우 세계대전으로 인해 결측 처리되었습니다.

olympic_running %>% 
  ggplot(aes(x = Year, y = Time, color = Sex, group = Sex)) +
  geom_line(size = 0.7) +
  geom_point(size = 1.2) +
  facet_wrap(. ~ Length, scales = "free_y", nrow = 2) +
  labs(x = "Year", y = "Running time (seconds)") +
  scale_color_brewer(palette = "Dark2") + 
  theme_minimal() +
  theme(legend.position = "bottom", legend.title = element_blank())