[R] 시계열 끝에 값 표시하기

 

여기에 나와있는 코드를 약간 변형하여 

시계열에 마지막 값을 표시하는 것입니다.

AER 패키지에 있는 Grundfeld 자료를 불러들입니다.

library(tidyverse)
library(dplyr)
library(AER)

data("Grunfeld")
a <- Grunfeld

시계열 값의 끝값을 a_ends 에 담습니다.

a_ends <- a %>% 
  group_by(firm) %>% 
  top_n(1, year) %>% 
  pull(value)

ggplot의 보조축을 이용하여 끝 값을 표시하고, 약간의 분식을 하면 아래와 같은 그림을 얻을 수가 있습니다.

 

a %>%
  select(year, value, firm) %>% 
  ggplot(aes(x = year,y = value,color = firm)) +
  geom_line() +
  scale_y_continuous(sec.axis = sec_axis(~ ., breaks = a_ends)) +
  scale_x_continuous(expand = c(0, 0)) +
  ggtitle("기업의 가치") +
  labs(x = "연도", 
       y = "가치", 
       caption = "중요한경제문제연구소") +
  theme_minimal() +
  scale_color_brewer(palette = "BrBG")

 

그러면 아래와 같은 그림을 얻을 수가 있습니다.