Evaluating the Impact of Canada’s Green, Social, and Sustainability Bonds

library(tidyverse)

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.4     ✔ readr     2.1.5
✔ forcats   1.0.0     ✔ stringr   1.5.1
✔ ggplot2   3.4.4     ✔ tibble    3.2.1
✔ lubridate 1.9.3     ✔ tidyr     1.3.1
✔ purrr     1.0.2     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(dplyr)
library(readxl)

Executive Summary

Canada’s environmental and social objectives are firmly supported by its active engagement in green, social, and sustainability bond markets.
The country’s ambitious climate targets are aimed at a 40-45% reduction in GHG emissions by 2030 from 2005 levels, and achieving net-zero emissions by 2050.
Financial tools such as green, social, and sustainability bonds have been pivotal in funding a broad spectrum of projects that contribute to these goals. Since 2014, these bonds have supported renewable energy, clean transportation, and affordable housing projects.
The environmental impact is highlighted by a consistent decline in GHG emissions, particularly in the energy sector, aligning with the issuance of green bonds.
The social impact is also evident, with a decrease in low-income rates since 2015, improvement in gender pay ratios, and a rise in union coverage, indicating an enhancement in labor rights and conditions.

Background

As one of the top 10 absolute greenhouse gas (GHG) emitters globally (Figure 1), Canada bears significant historical responsibility for addressing climate change. The country has set ambitious climate targets, aiming to reduce its GHG emissions by 40-45% below 2005 levels by 2030, in alignment with the Paris Agreement’s objectives to limit global warming. Moreover, Canada is committed to achieving net-zero emissions by 2050, a goal that necessitates major transformations across energy, transportation, and manufacturing sectors.

Recognizing the critical role of financial mechanisms in meeting its climate objectives, Canada has heavily invested in tools like green bonds, social bonds, and sustainability bonds. These instruments are specifically designed to fund projects with positive environmental and social impacts, thus fostering sustainable development nationwide. Since 2014, Canada has actively issued green, social, and sustainability bonds, financing a diverse array of projects including renewable energy installations, public transportation expansions, and affordable housing developments.

ghg_world <- read.csv("data-raw/ghg-emissions.csv")

ghg_world_clean <- ghg_world %>%
  mutate(across(starts_with("X"), ~ as.numeric(gsub(",", "", .))))

Warning: There was 1 warning in `mutate()`.
ℹ In argument: `across(starts_with("X"), ~as.numeric(gsub(",", "", .)))`.
Caused by warning:
! NAs introduced by coercion

ghg_world_total <- ghg_world_clean %>%
  rowwise() %>%
  mutate(total_emissions = sum(c_across(starts_with("X")), na.rm = TRUE)) %>%
  ungroup()

top_countries <- ghg_world_total %>%
  arrange(desc(total_emissions)) %>%
  slice_head(n = 10)

ggplot(top_countries, aes(x = reorder(Country.Region, -total_emissions), y = total_emissions,
                          fill = ifelse(Country.Region == "Canada", "Canada", "Others"))) +
  geom_bar(stat = "identity", alpha = 0.6) +
  scale_fill_manual(values = c("Canada" = "red", "Others" = "gray")) +
  labs(title = "Figure 1. Top 10 Countries by Total GHG Emissions",
       x = "Country",
       y = "Total Emissions (MtCO2e)",
       caption = "Data source: Climate Watch | Author: Boyuan Gao") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1),
        legend.position = "none")

Overview of Bonds Issuance in Canada

As depicted in Figure 2, Canada has established itself as a key participant in the green, social, and sustainability bond markets, reflecting its commitment to sustainable finance as a crucial component of its climate action strategy.

green_bond_canada <- read_excel("data-raw/canada_green_bonds.xlsx")

ggplot(green_bond_canada, aes(x = Year, y = `Amount Issued`, fill = `Bond Type`)) +
  geom_bar(stat = "identity", position = "stack", alpha = 0.8) + 
  scale_fill_manual(values = c("Green" = "#78c679", 
                               "Social" = "#a6bddb", 
                               "Sustainability" = "#fc8d59")) +
  scale_x_continuous(breaks = unique(green_bond_canada$Year)) +
  theme_minimal() +
  labs(
    title = "Figure 2. Value of Bonds Issued by Bond Type in Canada",
    x = "Year",
    y = "Value of Bonds Issued (bn USD)",
    caption = "Data source: Climate Bonds Initiative | Author: Boyuan Gao",
    fill = "Bond Type"
  ) +
  theme(axis.text.x = element_text(angle = 0, vjust = 0.5, hjust = 1), 
        legend.position = "bottom")

Green Bonds: Canada’s green bond market has seen substantial growth. Both the government and private entities have capitalized on these bonds to fund projects that deliver environmental benefits. For instance, a landmark issuance was the Ontario government’s green bond in 2014, the first of its kind in Canada, raising CAD 500 million for environmentally sustainable initiatives. The proceeds from these bonds have been largely directed towards renewable energy projects, and to the development of cleaner transportation systems, including electric and hybrid buses and the expansion of railway systems, which aim to reduce vehicle-related emissions.

Social Bonds: Gaining momentum in 2018, social bonds, though less prevalent than green bonds, have shown increasing popularity. These bonds primarily finance ventures that address pressing social issues, including affordable housing and community services. A notable example is the issuance by the Canada Mortgage and Housing Corporation (CMHC), which uses the proceeds to support affordable housing initiatives nationwide. These initiatives are crucial for promoting social equity and inclusion, which are integral to sustainable development.

Sustainability Bonds: Canada issued its first sustainablity bond in 2019. Sustainability bonds combine the objectives of both green and social bonds, financing projects that yield both environmental and social benefits. For example, Canadian municipalities have issued sustainability bonds to fund projects such as green building developments that also benefit low-income populations. These bonds empower investors to contribute to comprehensive sustainability efforts that address various aspects of Canada’s environmental and social goals.

An Analysis of the Impact of Canada’s Green, Social, and Sustainability Bonds

Environmental Impact

The issuance of green, social, and sustainability bonds in Canada has had a noticeable impact on the country’s environmental footprint, particularly in the context of GHG emissions. Funds channeled into renewable energy projects, such as solar and wind farms, as well as into the development of energy-efficient infrastructures, have fostered a gradual yet measurable decrease in GHG emissions.

historical_emissions_world <- read.csv("data-raw/historical_emissions.csv")
historical_emissions_canada <- historical_emissions_world %>%
  filter(Country == "Canada")

historical_emissions_canada$X1990 <- as.numeric(historical_emissions_canada$X1990)

emissions_canada_long <- historical_emissions_canada |> 
  pivot_longer(cols = starts_with("X"), names_to = "Year", values_to = "Emissions") |> 
  mutate(Year = as.integer(substring(Year, 2))) 

ggplot(emissions_canada_long, aes(x = Year, y = Emissions)) +
  geom_area(fill = "lightblue", alpha = 0.4) +
  geom_line(color = "blue", size = 1.2) + 
  geom_point(color = "darkblue", size = 2.5) +
  geom_text(aes(label = round(Emissions, 2)), vjust = 0, hjust = 1.3, color = "darkblue", size = 2, angle = 45) + 
  labs(title = "Figure 3. Historical GHG Emissions in Canada", 
       x = "Year",
       y = "Emissions (MtCO2e)",
       caption = "Data source: Climate Watch | Author: Boyuan Gao") +
  scale_y_continuous(limits = c(0, NA), breaks = seq(0, max(emissions_canada_long$Emissions, na.rm = TRUE), by = 300)) +
  theme_minimal()

Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
ℹ Please use `linewidth` instead.

Historical GHG Emissions: Figure 3 presents a clear trajectory of emission reduction. This pattern demonstrates a notable correlation between the increase of green bond funds and the subsequent decrease in emissions. This relationship suggests that the investments from these bonds have likely played a role in supporting projects that reduce carbon footprints, aligning with Canada’s climate commitments.

historical_emissions_canada_sector <- read.csv("data-raw/historical_emissions_sector.csv")

emissions_canada_sector_long <- historical_emissions_canada_sector %>%
  pivot_longer(cols = starts_with("X"), names_to = "Year", values_to = "Emissions") %>%
  mutate(Year = as.integer(substring(Year, 2)),  # Convert Year to integer
         Sector = factor(Sector, levels = c("Waste", "Industrial Processes", "Land-Use Change and Forestry", "Agriculture", "Energy")))  

ggplot(emissions_canada_sector_long, aes(x = Year, y = Emissions, fill = Sector)) +
  geom_area(position = 'stack', alpha = 0.6) +
  scale_fill_manual(values = c("Energy" = "orange",
                               "Agriculture" = "yellow",
                               "Land-Use Change and Forestry" = "#66a61e",
                               "Industrial Processes" = "#e7298a",
                               "Waste" = "#7570b3")) +
  scale_y_continuous(limits = c(0, NA), breaks = seq(0, max(emissions_canada_sector_long$Emissions, na.rm = TRUE), by = 300)) +
  theme_minimal() +
  theme(legend.position = "bottom") +
  labs(title = "Figure 4. Historical GHG Emissions in Canada by Sector (1990-2020)",
       x = "Year",
       y = "Emissions (MtCO2e)",
       caption = "Data source: Climate Watch | Author: Boyuan Gao",
       fill = "Sector") +
  guides(fill = guide_legend(reverse = TRUE))

Historical GHG Emissions by Sector: Figure 4 categorizes emissions by sector and highlights the energy sector’s substantial role in Canada’s historical GHG emissions. Yet, the graph reveals a notable decline in emissions from this sector in recent years. The downward trend aligns with the timeline of green bond issuance, suggesting that the environmental projects financed by these bonds have positively impacted the sector’s emission levels.

Social Impact

Analyzing the social impact of green, social, and sustainable bonds in Canada requires examining how these financial instruments may have influenced various social metrics, e.g. the percentage of persons in low income, gender pay ratios, and union coverage.

low_income <- read.csv("data-raw/low-income.csv")

canada_data <- low_income %>%
  filter(GEO == "Canada",
         Low.income.lines == "Low income measure after tax",
         Persons.in.low.income %in% c("All persons", "Males", "Females"))

ggplot(canada_data, aes(x = REF_DATE, y = VALUE, color = Persons.in.low.income)) +
  geom_line(size = 1) + 
  labs(title = "Figure 5. Percentage of Persons in Low Income in Canada (2010-2021)",
       subtitle = "Low Income Measure After Tax",
       x = "Year",
       y = "Percentage of Persons in Low Income",
       caption = "Data source: Statistics Canada | Author: Boyuan Gao",
       color = "Category") +
  theme_minimal() +
  theme(legend.position = "bottom") +
  scale_x_continuous(breaks = seq(min(canada_data$REF_DATE), max(canada_data$REF_DATE), by = 1)) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_color_manual(values = c("All persons" = "#a6bddb", "Males" = "#fc8d59", "Females" = "#78c679"))

Percentage of Persons in Low Income: Figure 5 presents a fluctuating trend in the percentage of persons in low income, with a noticeable decline starting in 2015, despite a subsequent rise attributed to the adverse effects of the COVID-19 pandemic. Social bonds have the potential to directly influence this indicator through funding projects aimed at reducing poverty. By supporting affordable housing developments and increasing access to essential services, these bonds may contribute to a reduction in the number of individuals living below the poverty line. Sustainable bonds also play a part, as they finance projects with broader social benefits that can lead to economic development and job creation, indirectly lifting incomes.

gender_data <- read.csv("data-raw/gender_wage_ratio.csv")

all_occupations_gender_data <- gender_data |> 
  filter(National.Occupational.Classification..NOC. == "All occupations") |> 
  mutate(Statistics = ifelse(Statistics == "Average gender pay ratio in annual wages, salaries and commissions", "Average", Statistics)) |> 
  mutate(Statistics = ifelse(Statistics == "Median gender pay ratio in annual wages, salaries and commissions", "Median", Statistics))

ggplot(all_occupations_gender_data, aes(x = REF_DATE, y = VALUE, group = Statistics, color = Statistics)) +
  geom_line() +
  geom_point() +
  theme_minimal() +
  labs(title = "Figure 6. Gender Pay Ratios of All Occupation",
       x = "Year",
       y = "Gender Pay Ratio",
       caption = "Data source: Centre for Income and Socioeconomic Well-being Statistics, Statistics Canada | Author: Boyuan Gao",
       color = "Type of Ratio") +
  theme(legend.position = "bottom")

Gender Pay Ratios: Figure 6 depicts an improvement in gender pay ratios in Canada, suggesting a narrowing of the wage gap between genders across all occupations. While the influence of green, social, and sustainable bonds on pay equity is indirect, the financing of projects that promote gender equality in the workplace or support sectors where women are traditionally underrepresented can contribute to this positive trend. For example, investments in education and healthcare, often financed by social bonds, can empower women and lead to greater gender parity in pay.

union_coverage <- read.csv("data-raw/union_coverage.csv")

all_industries_union_coverage <- union_coverage %>%
  filter(North.American.Industry.Classification.System..NAICS. == "Total employees, all industries")

ggplot(all_industries_union_coverage, aes(x = REF_DATE, y = VALUE, color = North.American.Industry.Classification.System..NAICS.)) +
  geom_line() + 
  geom_point() + 
  theme_minimal() +
  labs(
    title = "Figure 7. Union Coverage for All Industries",
    x = "Year",
    y = "Union Coverage (thousands)",
    caption = "Data source: Statistics Canada | Author: Boyuan Gao"
  ) +
  guides(color = FALSE)

Warning: The `<scale>` argument of `guides()` cannot be `FALSE`. Use "none" instead as
of ggplot2 3.3.4.

Union Coverage: As shown in Figure 7, union coverage has seen an upward trend, especially from 2016 onward. Union coverage is an important indicator of labor rights and workers’ ability to negotiate for better pay and working conditions. While the issuance of green, social, and sustainable bonds is not directly linked to unionization, the financial support these bonds provide to fair employment practices and inclusive growth can create an environment where unions thrive. For instance, projects that improve labor standards and support job security in sustainable industries may encourage union membership.

Conclusion

The implementation of green, social, and sustainability bonds in Canada has served as a catalyst for both environmental and social advancements. The country’s significant investment in these bonds has underpinned efforts to diminish GHG emissions, fostered sustainable development, and supported projects that drive social change. This dual impact is a testament to the multifaceted benefits of sustainable finance and Canada’s commitment to a greener and more equitable future. The positive trends observed in emission reductions and social improvements provide encouraging evidence of the transformative power of dedicated funding mechanisms in realizing national and global sustainability goals.