AFV Acquisitions by Regulated Fleets (by Fleet Type)

AFV Acquisitions by Regulated Fleets (by Fleet Type) – Interactive R

 

Under the Energy Policy Act of 1992 (EPAct) and subsequent regulations, certain vehicle fleets operated by state agencies or alternative fuel providers are required to acquire alternative fuel vehicles (AFVs) as a fraction of their light-duty vehicle fleet. This chart shows the number of light- as well as medium/heavy-duty AFV acquisitions these fleets made. The economic downturn of 2008 led to fewer overall vehicle acquisitions, which in turn reduced AFV acquisition requirements. Vehicle purchases rebounded to pre-recession levels, but again dropped during the pandemic.

 

# Load necessary libraries
library(plotly)

# Create a data frame with the provided data
data <- data.frame(
  Year = c(1993:2022),
  AFV_Count = c(705, 1208, 1587, 2174, 3148, 3741, 5443, 11327, 8448, 8248, 6143, 6652, 9316, 11863, 13510, 19488, 9971, 8412, 12150, 14655, 16042, 16077, 14916, 17296, 16644, 15544, 16935, 11566, 6215, 7639),
  Alternative_Fuel_Provider_Count = c(1778, 3113, 3855, 2457, 3169, 2378, 2564, 2676, 2184, 2065, 2137, 1449, 906, 977, 1646, 1745, 1113, 1869, 2346, 3558, 4552, 4129, 5655, 5139, 4458, 4551, 5107, 4051, 4367, 4016)
)

# Create an interactive bar plot using plotly
plot_ly(data, x = ~Year, y = ~AFV_Count, type = "bar", name = "AFV Count", marker = list(color = "blue")) %>%
  add_trace(y = ~Alternative_Fuel_Provider_Count, name = "Alternative Fuel Provider Count", marker = list(color = "green")) %>%
  layout(
    title = "AFV Acquisitions by Regulated Fleets (by Fleet Type)",
    xaxis = list(title = "Year"),
    yaxis = list(title = "Count"),
    barmode = "group"
  )

Source: National Renewable Energy Laboratory EPAct State and Alternative Fuel Provider Fleet Task

Leave a Reply

Your email address will not be published. Required fields are marked *