また株価で遊んでみた

ここで取得した株価で遊んでみた。 ooooooha.hatenablog.com

建設業関連の株価の終値の増加率の累積地を可視化してみた。 全体的に株価が上昇しているのがわかる。 塩漬けでも投資しておけば小遣い程度は稼げたんだろうな。 これをみると景気拡大期間バブル超えというのも納得できる。 実感としては増税等のせい？で減ってきている印象しかありません。

load(file = "output/建設2017-06-18.Rdata")
code_list <- read.table("codelist.csv", sep=",", header = T, check.names = F)


data_list %>%
  as_tibble() %>%
  arrange(code, date) %>%
  group_by(code) %>%
  mutate(prev_end_price = lag(end_price),
         diff_end_price = end_price / prev_end_price -1) %>%
  mutate(abs_rate = diff_end_price %>% abs() %>% max(na.rm=T)) %>%
  filter(abs_rate < 2) %>%
  replace_na(list(diff_end_price = 0)) %>% 
  group_by(code) %>%
  mutate(cum_diff_end_price = cumsum(diff_end_price)) %>%
  ungroup %>%
  mutate(code = plyr::mapvalues(x = code, 
                                from = as.numeric(code_list$コード),
                                to = code_list$銘柄名,
                                warn_missing = F)) %>% 
  ggplot() +
  geom_line(aes(x = date, y = cum_diff_end_price)) + 
  geom_abline(slope = 0, linetype = 2) +
  facet_wrap(~ code, scale = "fixed") +
  theme(axis.text = element_text(size = 7), strip.text = element_text(size = 7)) +
  scale_x_date(labels=scales::date_format("%m"))