time series plot

Hi,

I was trying to plot monthly fuel consumption for last five years. I have converted the csv file into tissble using the below codes. But in-stead of generating any time-series plot (trend/seasonal); it just does not show anything. Can anyone kindly suggest, if it is a coding issue or data-structure issue?

install.packages("fpp3")
library(fpp3)
library(ggplot2)
library(readr)
library(tidyverse)

read the data frame

data = read.csv('data.csv')
view(data)
head(data)

convert the csv into tssible

data <- data %>%
mutate(Month = yearmonth(Date)) %>%
select(-Date) %>%
as_tsibble(key = c(fuel),
index = Month)

Rearrange the tssible with order of date.

data = data[order(data$Month),]

convert the fuel type to "dbl" from "chr"

library(dplyr)
library(readr)

new_data=data %>%
mutate(across(fuel, ~parse_number(., locale = locale(decimal_mark = ","))))%>%
relocate(fuel, .after = Month)
view(new_data)

new_data

Autoplot of the monthly fuel consumption each year from 2016 to 2022

consumption <- new_data %>%
mutate(fuel = fuel*1000)
autoplot(new_data, fuel) +
labs(title = "petroleum fuel consumption in United States",
subtitle = "for a period of 5 years; 2016 to 2022",
y = "barrel (thousands)")

data