In MichaelGurkov/LearningMaterials: What the Package Does (One Line, Title Case)

library(tidyverse)

library(readxl)

library(lubridate)

devtools::load_all()

issue_df = import_tase_issue_data()

issue_df %>% 
  filter(category == "corp_bond_total") %>% 
  ggplot(aes(x = date, y = value)) + 
  geom_col() + 
  xlab(NULL) + ylab(NULL) + 
  ggtitle("Issuance of corporate bonds \n (Billions ILS)") + 
  scale_y_continuous(labels = scales::number_format(scale = 1/1000)) + 
  theme(axis.text.x = element_text(angle = 90))

tribble(~category,~amount,
        "Domestic (traded)",551.2,
        "Domestic (non traded)",271.9,
        "Foreign", 160.8) %>% 
  ggplot(aes(y = reorder(category, amount), x = amount)) + 
  geom_col() + 
  geom_text(aes(label = amount), hjust = -0.25) + 
  xlim(c(0,600)) + 
  xlab(NULL) + ylab(NULL) + 
  ggtitle("Israel's Goverment debt structure (2020, biilions ILS)")

MichaelGurkov/LearningMaterials documentation built on July 9, 2022, 5:17 p.m.