Paper 2, ValeriaLee

Executive Summary

This paper seeks to offer insights into investment opportunities of Clean Technology Markets by examining the evolution of investment strategies in response to anticipated market shifts within the clean technology sector, taking into account regulatory frameworks, technological advancements, and demand-supply dynamics regarding critical minerals. By applying data from the International Energy Agency (IEA) and Bloomberg Terminal, this research highlights the following key points:

  • The stable predicted market share of critical minerals in clean technology highlights the sector’s advancement in promoting environmental sustainability and carbon neutrality, although progress has been constrained by challenges such as high investment costs, regulatory hurdles, and technological limitations, slowing widespread adoption.

  • The Clean Technology market is expected to peak in its market share by 2025, then followed by a gradual decline until 2050, where its share aligns with 2022 levels due to factors like market saturation and evolving consumer preferences, but stabilization thereafter is anticipated through supply-demand balance and advancements in alternative technologies reducing reliance on critical minerals.

  • Contrary to expectations of market saturation by 2025, the forecast for individual critical minerals’ demand reveals a different trend, with the share of Clean Technologies expected to grow until 2040 before stabilizing, underscoring sustained reliance on these minerals within the clean tech sector.

  • The stable demand for critical minerals in clean technology in all different scenarios underscores their vital role in the ESG industry while the market share of Clean Technology doesn’t showing an increasing pattern, raising concerns over limited availability and environmental challenges prompting innovation and sustainability efforts.

library(tidyverse) 
── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.3     ✔ readr     2.1.4
✔ forcats   1.0.0     ✔ stringr   1.5.0
✔ ggplot2   3.4.4     ✔ tibble    3.2.1
✔ lubridate 1.9.3     ✔ tidyr     1.3.0
✔ 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(readxl) 
library(here) 
here() starts at /Users/avery/Desktop

Introduction

The pivotal role of clean technologies in addressing environmental challenges and advancing the Sustainable Development Goals (SDGs) has made them increasingly relevant in the environmental, social and governance (ESG) investment space. The surge in investor interest in ESG investing over the past decade underscores the growing recognition of the importance of integrating ESG factors into investment decisions. Globally, more than $17.5 trillion in professionally managed portfolios now incorporate ESG assessments and more than $1 trillion in ESG-related investment products, clearly demonstrating that ESG factors can profoundly affect the long-term performance of companies and portfolios. Notably, recent research has shown that investment strategies focused on ESG can enhance risk management practices and provide competitive returns comparable to traditional financial investments. As society increasingly prioritizes responsible business practices and faces the pressing challenges of climate change, the need for sustainable finance to incorporate a wider range of externalities into long-term profitability becomes increasingly evident. In this context, cleantech has emerged as a key enabler of sustainable development and a cornerstone of investment strategies focused on environmental, social and corporate governance, offering investors the opportunity to combine financial objectives with positive environmental and social impacts.

path_to_sheet <- here("data", "iea_total_demand_for_critical_minerals.csv")
path_to_sheet
[1] "/Users/avery/Desktop/data/iea_total_demand_for_critical_minerals.csv"
our_cleaned_data <- here("data", "iea_total_demand_for_critical_minerals.csv") |> 
  read_csv()
Rows: 779 Columns: 6
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (4): mineral_name, indicator, scenario, unit
dbl (2): year, value

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
Minerals <- ggplot(our_cleaned_data, aes(x = year, y = value, fill = indicator)) +
  geom_bar(stat = "identity", position = "dodge") +
  labs(title = "Total Demand for Minerals Across Scenarios in different Sections",
       x = "Year",
       y = "Total Demand (kiloton)",
       fill = "Mineral") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_brewer(palette = "Set3") +
  facet_wrap(~scenario)
Minerals

Analysis

At present, the overall demand for critical minerals remains relatively steady, albeit with a modest projected market share. This emerging market, although nascent, has demonstrated commendable advancements in advocating for environmental sustainability and mitigating carbon emissions, aligning with broader global endeavors toward carbon neutrality. Nevertheless, its journey towards widespread adoption has encountered notable impediments, leading to a somewhat sluggish progress. Obstacles including substantial initial investment requirements, regulatory complexities, and technological constraints have collectively hampered the swift integration of clean technologies, thereby constraining their extensive deployment.

year_data <- our_cleaned_data %>%
  filter(year %in% c(2022, 2025, 2030, 2035, 2040, 2045, 2050))

# Calculate the total mineral demand for each indicator and year
total_demand <- year_data %>%
  group_by(year, indicator) %>%
  summarise(total_demand = sum(value))
`summarise()` has grouped output by 'year'. You can override using the
`.groups` argument.
# Calculate percentage of total demand for each indicator
total_demand <- total_demand %>%
  group_by(year) %>%
  mutate(percentage = total_demand / sum(total_demand) * 100)

total_demand
# A tibble: 84 × 4
# Groups:   year [7]
    year indicator                                   total_demand percentage
   <dbl> <chr>                                              <dbl>      <dbl>
 1  2022 Electric vehicles                               837.      1.31     
 2  2022 Electricity networks                           4182.      6.54     
 3  2022 Grid battery storage                             36.4     0.0569   
 4  2022 Hydrogen technologies                             1.78    0.00278  
 5  2022 Low emissions power generation                    0.0166  0.0000260
 6  2022 Other low emissions power generation            168.      0.263    
 7  2022 Other uses                                    22443      35.1      
 8  2022 Share of clean technologies in total demand       1.54    0.00241  
 9  2022 Solar PV                                        682.      1.07     
10  2022 Total clean technologies                       6344.      9.92     
# ℹ 74 more rows
# Pie chart showing the distribution of mineral demand across indicators for each year
ggplot(total_demand, aes(x = "", y = total_demand, fill = indicator)) +
  geom_bar(stat = "identity", width = 1) +
  coord_polar("y", start = 0) +
  labs(title = "Distribution of Mineral Demand In Different Use",
       fill = "Indicator",
       caption = "Percentage: {round(percentage, 1)}%") +
  theme_void() +
  facet_wrap(~ year, nrow = 1) +
  scale_fill_brewer(palette = "Set3") +
  theme(plot.caption = element_text(hjust = 1.0))

The Clean Technology market is poised to reach its zenith market share by the year of 2025 according to the share of Clean Technology market in total demand of all critical minerals, propelled by a confluence of factors including heightened environmental consciousness, governmental interventions, and strides in technology fostering sustainability and efficacy across diverse sectors. However, thereafter, a gradual decline in its market share is anticipated, persisting until 2050, where the projected share mirrors the levels of critical mineral demand witnessed in 2022. This downward trend can be ascribed to various elements such as market saturation, technological maturation, and evolving consumer inclinations favoring alternative sectors or technologies. The stabilization of the market share by 2050 is likely to stem from a harmonization of supply and demand dynamics, regulatory frameworks, and advancements in alternative technologies designed to lessen dependence on critical minerals.

clean_technologies_data <- our_cleaned_data %>%
  filter(indicator == "Share of clean technologies in total demand")

# Aggregate total demand of clean technologies across all minerals for each year
total_clean_technologies_demand <- clean_technologies_data %>%
  group_by(year) %>%
  summarise(total_demand = sum(value, na.rm = TRUE)) %>%
  ungroup()

# Aggregate total demand of all minerals for each year
total_demand <- our_cleaned_data %>%
  group_by(year) %>%
  summarise(total_demand_all_minerals = sum(value, na.rm = TRUE)) %>%
  ungroup()

# Calculate the share of clean technologies in total demand of all cminerals for each year
total_demand <- total_demand %>%
  left_join(total_clean_technologies_demand, by = "year") %>%
  mutate(share_clean_technologies = total_demand / total_demand_all_minerals * 10000)

# Print the total_demand dataframe to inspect the data
print(total_demand)
# A tibble: 7 × 4
   year total_demand_all_minerals total_demand share_clean_technologies
  <dbl>                     <dbl>        <dbl>                    <dbl>
1  2022                    63919.         1.54                    0.241
2  2025                   214686.         5.88                    0.274
3  2030                   275941.         7.45                    0.270
4  2035                   303488.         8.05                    0.265
5  2040                   325089.         8.31                    0.256
6  2045                   333495.         8.28                    0.248
7  2050                   333387.         8.21                    0.246
# Create a line chart for share of clean technologies in total demand over time
ggplot(total_demand, aes(x = year, y = share_clean_technologies)) +
  geom_line(color = "darkolivegreen3") +
  labs(title = "Share of Clean Technologies in Total Demand of All Critical Minerals Over Time",
       x = "Year",
       y = "Share of Clean Technologies") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

Contrary to the anticipated market saturation by 2025, as projected from a broader viewpoint in last paragraph, the forecast regarding the total demand for individual critical minerals presents a different narrative. Specifically, the share of Clean Technologies is anticipated to undergo growth from 2022 to 2040 before gradually stabilizing. This outlook underscores a sustained expansion in the utilization of critical minerals within the clean technology sector during the mentioned timeframe, suggesting an ongoing increase in reliance on these minerals. This analysis delves into the intricate relationship between clean technologies and individual critical minerals, scrutinizing the evolution of demand for these minerals within the clean tech market over the specified period.

The demand for critical minerals within the realm of clean technology exhibits a persistent trend, maintaining stability across multiple scenarios. This trend encompasses a phase of gradual expansion and eventual peak demand spanning from 2022 to 2035, succeeded by a period of incremental stabilization and marginal decline leading up to 2050. Such consistency reflects anticipated reliance on these minerals within clean technology applications, highlighting their indispensable contribution to the Environmental, Social, and Governance (ESG) sector. Nevertheless, the slight downturn in projected mineral demand also raises underlying concerns regarding their availability. Challenges such as geographic concentration and regulatory and environmental constraints pertaining to extraction and processing accentuate these worries. Despite these hurdles, manufacturers are proactively innovating and exploring alternative solutions to address cost and supply chain vulnerabilities, thereby fostering substitution and bolstering sustainability within clean technology products.

ggplot(clean_technologies_data[clean_technologies_data$year != 2022,], aes(x = as.factor(year), y = value, fill = scenario)) +
  geom_bar(stat = "identity", position = "dodge") +
  labs(title = "Clean Technologies Demand Over Time Based on Scenarios",
       x = "Year",
       y = "Clean Technologies Demand",
       fill = "Scenario") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  facet_wrap(~ scenario, scales = "free_y", nrow = 2) +
  scale_fill_brewer(palette = "Set3")

Summary

The evolving landscape of the clean technology market, projected to reach its pinnacle by 2035 before a gradual decline until 2050, underscores both its nascent nature and remarkable maturation, encountering hurdles such as market saturation and technological limitations. Nonetheless, a mind sets of challenges like regulatory constraints and supply constraints, the consistent demand for essential minerals underscores their pivotal role in fostering environmental sustainability. Ultimately, despite market obstacles, sustained innovation and sustainability endeavors remain imperative to safeguard their enduring relevance and their potential as investment opportunities aligning with global environmental objectives. Based on insights gleaned from the visualization analysis, this report discerns that the clean technology market holds promise for investment in the upcoming years, although it may not necessarily signify high-return or exponential growth potential.