U.S. Production, Consumption, and Trade of Ethanol (Million Gallons)

U.S. Production, Consumption, and Trade of Ethanol (Million Gallons)

This chart shows the trend in total ethanol fuel production and consumption from 2000 to 2021. The use of ethanol as a gasoline additive increased in an accelerating fashion from 2000 to 2010. Its use was spurred by the Clean Air Act amendments of 1990 (and subsequent laws), which mandated the sale of oxygenated fuels in areas with unhealthy levels of carbon monoxide. Starting in 2010, E10 (an ethanol-gasoline blend containing 10% ethanol) was sold in all 50 states to boost octane, meet air quality requirements, or satisfy the Renewable Fuel Standard. Increases in ethanol use are also attributed to more widespread availability of flex-fuel vehicles, which can use blends as high as E85 (containing up to 85% ethanol), and greater availability of E85 stations. Ethanol is also available as E15 for use in light-duty vehicles of model year 2001 and newer. The majority of ethanol used as vehicle fuel in the United States is produced domestically; the United States is the world’s No. 1 ethanol producer.

# Load necessary libraries
library(ggplot2)
library(plotly)

# Create a dataframe from the provided data
data <- data.frame(
  Year = seq(2000, 2021),
  Production = c(1622, 1765, 2140, 2804, 3404, 3904, 4884, 6521, 9309, 10938, 13298, 13929, 13218, 13293, 14313, 14806, 15413, 15936, 16061, 15788, 13926, 15016),
  Consumption = c(1653, 1741, 2073, 2826, 3552, 4059, 5481, 6886, 9683, 11037, 12858, 12893, 12882, 13216, 13444, 13940, 14356, 14485, 14381, 14552, 12681, 13944),
  Net_Imports_Stock = c(31, -24, -67, 22, 148, 154, 597, 365, 375, 99, -439, -1036, -336, -77, -869, -866, -1057, -1451, -1680, -1236, -1245, -1072)
)

# Create an interactive line plot using Plotly
plot <- plot_ly(data, x = ~Year) %>%
  add_lines(y = ~Production, name = "Production", line = list(color = "#1f77b4")) %>%
  add_lines(y = ~Consumption, name = "Consumption", line = list(color = "#ff7f0e")) %>%
  add_lines(y = ~Net_Imports_Stock, name = "Net Imports and Stock Change", line = list(color = "#2ca02c")) %>%
  layout(
    title = "U.S. Production, Consumption, and Trade of Ethanol (Million Gallons)",
    xaxis = list(title = "Year"),
    yaxis = list(title = "Million Gallons"),
    showlegend = TRUE
  )

# Display the plot
plot