Gasoline Price

Average Price: Gasoline, Unleaded Regular (Cost per Gallon/3.785 Liters) in U.S. City Average (APU000074714)

Average Price: Milk, Fresh, Whole, Fortified (Cost per Gallon/3.8 Liters) in U.S. City Average (APU0000709112)

indicator <-fredr_series_observations(series_id = "APU000074714", 
      observation_start = as.Date("2019-01-01"))
indicator2 <-fredr_series_observations(series_id = "APU0000709112", 
      observation_start = as.Date("2019-01-01"))
      
str(indicator)

## tibble [40 x 5] (S3: tbl_df/tbl/data.frame)
##  $ date          : Date[1:40], format: "2019-01-01" "2019-02-01" ...
##  $ series_id     : chr [1:40] "APU000074714" "APU000074714" "APU000074714" "APU000074714" ...
##  $ value         : num [1:40] 2.29 2.35 2.56 2.83 2.9 ...
##  $ realtime_start: Date[1:40], format: "2022-05-23" "2022-05-23" ...
##  $ realtime_end  : Date[1:40], format: "2022-05-23" "2022-05-23" ...

symbol <- indicator[,c(1,3)]
symbol$milk <- indicator2$value
colnames(symbol) <- c("date","Gasoline","Milk")

  

      

ggplot(symbol, aes(date)) + 
  geom_line(aes(y = Gasoline, colour = "Gasoline")) + 
  geom_line(aes(y = Milk, colour = "Milk"))+
       labs(
      x = "Monthly",
      y = "Dollars",
      title = "Average Price in U.S. City Average : \nGasoline per Gallon \nMilk per Gallon",
     
      caption = "Data source: FRED St. Louis Federal Reserve \nIllustration by @JoeLongSanDiego") +
    theme_economist()

Average Price: Electricity per Kilowatt-Hour in Riverside-San Bernardino-Ontario, CA (CBSA) (APUS49C72610)

Average Price: Gasoline, All Types (Cost per Gallon in Riverside-San Bernardino-Ontario, CA (CBSA) (APUS49C7471A)

Average Price: Utility (Piped) Gas per Therm in Riverside-San Bernardino-Ontario, CA (CBSA) (APUS49C72620)

indicator <-fredr_series_observations(series_id = "APUS49C72610", 
      observation_start = as.Date("2018-01-01"))
indicator2 <-fredr_series_observations(series_id = "APUS49C7471A", 
      observation_start = as.Date("2018-01-01"))
indicator3 <-fredr_series_observations(series_id = "APUS49C72620", 
      observation_start = as.Date("2018-01-01"))
      


symbol <- indicator[,c(1,3)]
symbol$Gasoline <- indicator2$value
symbol$Gas <- indicator3$value
colnames(symbol) <- c("date","Electricity","Gasoline","Gas")

  

      

ggplot(symbol, aes(date)) + 
  geom_line(aes(y = Gasoline, colour = "Gasoline")) + 
  geom_line(aes(y = Electricity, colour = "Electricity"))+
   geom_line(aes(y = Gas, colour = "Propane Gas"))+
    labs(
      x = "Monthly",
      y = "Dollars",
      title = "Average Price in U.S. City Average : \nGasoline per Gallon \nMilk per Gallon",
            caption = "Data source: FRED St. Louis Federal Reserve \nIllustration by @JoeLongSanDiego") +
    theme_economist()

Average Price: Gasoline, Unleaded Regular in San Francisco-Oakland-Hayward, CA (CBSA) (APUS49B74714)

Average Price: Gasoline, Unleaded Regular (Cost per Gallon/3.785 Liters) in Houston-The Woodlands-Sugar Land, TX (APUS37B74714)

Average Price: Gasoline, Unleaded Regular (Cost per Gallon/3.785 Liters) in Phoenix-Mesa-Scottsdale, AZ (APUS48A74714)

indicator <-fredr_series_observations(series_id = "APUS49B74714", 
      observation_start = as.Date("2018-01-01"))
indicator1 <-fredr_series_observations(series_id = "APUS48A74714", 
      observation_start = as.Date("2018-01-01"))
indicator2 <-fredr_series_observations(series_id = "APUS37B74714", 
      observation_start = as.Date("2018-01-01"))

indicator$Phoenix <- indicator2$value
indicator$Houston <- indicator1$value
symbol <- indicator[,c(1,3,6,7)]

colnames(symbol)[2] <- "San_Francisco"

endvalue <- tail(symbol,n=1)

  

      

ggplot(symbol, aes(date)) + 
  geom_line(aes(y = San_Francisco, colour = "San Francisco")) +
  geom_line(aes(y = Phoenix, colour = "Phoenix")) +
   geom_line(aes(y = Houston, colour = "Houston")) +
  
    labs(
      x = "Monthly",
      y = "Dollars",
      title = "Gasoline per Gallon",
            caption = "Data source: FRED St. Louis Federal Reserve \nIllustration by @JoeLongSanDiego") +
 

    theme_economist()