date: Oct 2022

coder:

description:

set wd

setwd(“~/Desktop/SAIS/Academics/Fall 2022/Sustainable Finance/Final”)

libraries

library(“lubridate”) library(“dplyr”) library(“readxl”) library(“openxlsx”)

global variables for charts

axis.cex <- 1 tick.length <- 0.02 color_vector <- c(“firebrick”, “darkblue”, “forestgreen”, “darkorange2”, “darkorchid1”, “cyan4”) line_type <- c(“solid”, “dashed”, “dotdash”, “dotted”, “longdash”, “twodash”)

CLEAN DATA

data <- as.data.frame(readxl::read_excel(“202211_JPY Issuances.xlsx”, sheet = “Bonds”)) data\(issue_amount <- data\)Amt Issued

data\(date <- as.Date(data\)Issue Date, “%d/%m/%Y”)

substrRight <- function(x, n){ substr(x, nchar(x)-n+1, nchar(x)) }

data\(Year <- substrRight(data\)Issue Date, 4) sum_data <- data %>% dplyr::group_by(Year) %>% summarise(total = sum(issue_amount)) %>% ungroup

CHART

pdf(“Yuki_chart_v1.pdf”, 7, 5)

plot(y = sum_data\(total, x = sum_data\)Year, col = color_vector[1], lty = line_type[1], type = “l”, lwd = 2, # axes = FALSE, # yaxs=“i”, # ylim = c(min, max), xlab = “Year”, ylab = “Issuance amount”)

dev.off()