Following code can be used to generate interactive chart displaying added power plant capacity in US over the years:
library(plotly)
pp <- read.csv("global_power_plant_database.csv")
ppa <- pp[, c(1,2,3,5,8,12)]
ppU <- ppa[grep("USA", ppa$country),]
ppU1 <- aggregate(capacity_mw~commissioning_year+fuel1, data=ppU, sum)
ppu2 <- ppU1[grep("Coal|Gas|Hydro|Nuclear|Oil|Solar|Wind", ppU1$fuel1),]
plot_ly(ppu2, x=~round(commissioning_year), y=~capacity_mw,
color=~fuel1, type="bar") %>%
layout(title="Added Power Generation Capacity", xaxis=list(title="Year"),
yaxis=list(title="Added Power Generation Capacity (MW)"))