Share of electricity generation by fuel type

For this analysis, I’ve chosen to investigate how the mix of fuel types used to generate electricity has changed over time. We need to reduce carbon emissionsIn order to prevent or mitigate the effects of climate change, and electricity generation is a large component of these emissions. I’m interested to see what progress has been made in transitioning to more renewable/low-carbon fuels for electricity generation.

Conveniently, the data already contain fields for the share of total electricity generation for each fuel type! I’ll make a new data frame with just these fields. I can select these columns (all ending in share_elec), using the ends_with function from the Wickham et al. (2023) package.

usa %>% select(year,dplyr::ends_with('share_elec')) %>% 
  head()

# A tibble: 6 × 13
   year biofuel_share_elec coal_share_elec fossil_share_elec gas_share_elec
  <dbl>              <dbl>           <dbl>             <dbl>          <dbl>
1  2000               1.60            51.7              70.9           16.2
2  2001               1.34            51.1              71.9           17.1
3  2002               1.40            50.3              71.0           18.0
4  2003               1.38            51.0              71.2           16.8
5  2004               1.36            50.1              71.3           18.0
6  2005               1.34            49.9              71.9           18.9
# ℹ 8 more variables: hydro_share_elec <dbl>, low_carbon_share_elec <dbl>,
#   nuclear_share_elec <dbl>, oil_share_elec <dbl>,
#   other_renewables_share_elec <dbl>, renewables_share_elec <dbl>,
#   solar_share_elec <dbl>, wind_share_elec <dbl>

Now I have a dataframe with just the variables I want to plot, but the format isn’t ideal; I would have to specify/plot each variable separately. What I want to do is give a single plot command and group/color the lines by the variable (fuel type). To achieve this, I am going to pivot the data frame from wide to long format. I believe this was previously referred to as gather or melt.

usa_share <- usa %>% select(year,ends_with('share_elec')) %>% 
  tidyr::pivot_longer(cols=ends_with('share_elec'),
                      names_to='FuelType',
                      values_to = 'Percentage')
head(usa_share)

# A tibble: 6 × 3
   year FuelType              Percentage
  <dbl> <chr>                      <dbl>
1  2000 biofuel_share_elec          1.60
2  2000 coal_share_elec            51.7 
3  2000 fossil_share_elec          70.9 
4  2000 gas_share_elec             16.2 
5  2000 hydro_share_elec            7.10
6  2000 low_carbon_share_elec      29.1 

Now my dataframe has a row for each year, fuel type, and value, and I can simply group or color by the fuel type when I plot.

usa_share %>% 
  ggplot(aes(year,Percentage))+
  geom_line(aes(color=FuelType),linewidth=1.5)+
  ggtitle("Percent of US electricity Generation By Fuel type")+
  xlab("Year")+
  ylab("Percent")

Here we finally have a plot of the share of electricity generation by fuel type. We can see that the share of fossil fuels and coal has decreased, and renewable have increased. But there’s a lot on this plot and it’s hard to read, so I’ll focus down on some more specific subsets of the data.

Total Fossil, renewables, and nuclear shares

First we can look at the total shares of fossil (oil,coal, gas), renewable (wind, solar, hydro), and nuclear generation. Grouping into these categories de-clutters the plot and makes it easier to interpret.

usa %>% select(year,fossil_share_elec,renewables_share_elec,nuclear_share_elec) %>% 
  tidyr::pivot_longer(cols=dplyr::ends_with('share_elec'),
               names_to='FuelType',
               values_to = 'Percentage') %>% 
  ggplot(aes(year,Percentage))+
  geom_line(aes(color=FuelType),linewidth=1.5)+
  ggtitle("Percent of US electricity Generation")+
  xlab("Year")+
  ylab("Percent")

Observations from this plot:

• Fossil fuel share has been decreasing steadily since about 2007

• Renewable share has been increasing steadily since about 2007

• Nuclear has remained relatively constant at around 20%.

• Fossil share remains the majority of generation, but is decreasing. Renewables became approximately equal to nuclear around 2020 and are continuing to increase.

Breakdown of fossil fuel shares

• In this dataset, fossil fuels include coal, gas, and oil.

usa %>% select(year,fossil_share_elec,oil_share_elec,gas_share_elec,coal_share_elec) %>% 
  tidyr::pivot_longer(cols=dplyr::ends_with('share_elec'),
               names_to='FuelType',
               values_to = 'Percentage') %>% 
  ggplot(aes(year,Percentage))+
  geom_line(aes(color=FuelType),linewidth=1.5)+
  ggtitle("Percent of US electricity Generation: Fossil Fuels")+
  xlab("Year")+
  ylab("Percent")

Observations from this plot:

• We can see that the fossil fuel share of electricity generation has been decreasing, starting around 2008.

• Coal and gas make up the majority of the fossil fuel generation.

• Coal share has been decreasing while the gas share has increased. Coal was much higher than gas previously, but their shares became equal around 2015 and gas now makes up a larger share of the fossil fuel generation.

Renewables breakdown

• In this dataset, renewables include wind, solar, and hydro.

usa %>% select(year,renewables_share_elec,solar_share_elec,
               hydro_share_elec,wind_share_elec) %>% 
  tidyr::pivot_longer(cols=dplyr::ends_with('share_elec'),
               names_to='FuelType',
               values_to = 'Percentage') %>% 
  ggplot(aes(year,Percentage))+
  geom_line(aes(color=FuelType),linewidth=1.5)+
  ggtitle("Percent of US electricity Generation: Renewables")+
  xlab("Year")+
  ylab("Percent")

Observations from this plot:

• The share of renewable electricity production has increased sharply, approximately doubling from 2008 to 2020.

• The share of hydro generation has remained relatively constant.

• Solar and wind shares have increased significantly.

  • Wind started to increase earlier, around 2005.

  • Solar started increasing around 2012