With the oversupply of Solar PVs and growing electricity demand with the global transition to green economy in the future, we would like to explore the supply and demand of Solar PVs from today to 2050. After cleaning the data, we would like to examine the total electricity generation data on Solar PVs and analyze the projected demand for solar PV quantity by three different scenarios: current stated policies scenario, Net Zero Emission by 2050 scenario and 100% Solar Power utilization scenario, assuming the amount of electricity that one solar PV can generate will stay the same in the future. The questions that we would like to focus on is:
1) Carbon Emission reduced solely by Solar PVs
2) The amount of Solar PVs demanded under the energy demand by 2050 under three scenarios
3) The Solar PVs supply vs demand projections
library("esquisse")
Warning: package 'esquisse' was built under R version 4.2.3
library(tidyverse)
Warning: package 'tidyr' was built under R version 4.2.3
Warning: package 'readr' was built under R version 4.2.3
Warning: package 'dplyr' was built under R version 4.2.3
── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr 1.1.4 ✔ readr 2.1.5
✔ forcats 1.0.0 ✔ stringr 1.5.0
✔ ggplot2 3.4.4 ✔ tibble 3.2.1
✔ lubridate 1.9.3 ✔ tidyr 1.3.1
✔ purrr 1.0.1
── 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(scales)
Warning: package 'scales' was built under R version 4.2.3
Attaching package: 'scales'
The following object is masked from 'package:purrr':
discard
The following object is masked from 'package:readr':
col_factor