Module 5: Apply 4

Import data

# csv file
data <- read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/main/data/2025/2025-07-01/weekly_gas_prices.csv')

State one question

How has the weekly regular grade gas prices changed over the years in the U.S?

Plot data

data_regular <- dplyr::filter(data, grade == "regular")

ggplot(data_regular, aes(x = date, y = price)) +
  geom_line(color = "blue") +
  geom_smooth(method = "loess", se = FALSE, color = "red") +
  labs(title = "Weekly U.S. Regular Grade Gas Prices",
       x = "Week",
       y = "Price (USD per gallon)")

Interpret

Based on this chart we can tell that the price has risen a lot since 1990. From just above $1 per gallon to around $3.5 per gallon. Furthermore, we can see a clear spike in price during covid.