prius_mpg <-
structure(list(average_mpg = c(128.59999999999999, 202.59999999999999, 
98.400000000000006, 241.09999999999999, 148.90000000000001, 140.69999999999999, 
64, 85, 225.69999999999999, 44, 108.5, 128.40000000000001, 108.40000000000001, 
206.19999999999999, 201.19999999999999, 309.10000000000002, 83.799999999999997, 
134.30000000000001, 93.5), state = c("NV", "CA", "AL", "FL", 
"CA", "OK", "NY", "MO", "OH", "VA", "CA", "NJ", "MI", "MD", "CA", 
"SC", "VA", "NY", "NY"), stop_and_go = c(NA, 0.47999999999999998, 
0.33000000000000002, NA, 0.80000000000000004, 0.44, 0.5, 0.5, 
0.90000000000000002, 0.20000000000000001, 0.22, 0.34999999999999998, 
NA, NA, 0.40000000000000002, 0.59999999999999998, 0.23999999999999999, 
0.46000000000000002, 0.5), highway = c(NA, 0.52000000000000002, 
0.67000000000000004, NA, 0.20000000000000001, 0.56000000000000005, 
0.5, 0.5, 0.10000000000000001, 0.80000000000000004, 0.78000000000000003, 
0.65000000000000002, NA, NA, 0.59999999999999998, 0.40000000000000002, 
0.76000000000000001, 0.54000000000000004, 0.5), last_updated = structure(c(17947, 
17943, 17256, 17883, 17646, 17861, 17783, 17331, 17197, 17198, 
17390, 17481, 17993, 17876, 17983, 17339, 17952, 17401, 17862
), class = "Date")), row.names = c(NA, -19L), class = c("tbl_df", 
"tbl", "data.frame"))