Use moderndive pkg for flight data

02-visualization.Rmd

@@ -422,12 +422,6 @@ However, instead of considering hourly wind speeds for all days in 2023 for all
 
 Let's create a time series plot of the hourly wind speeds saved in the `early_january_2023_weather` data frame by using `geom_line()` to create a linegraph\index{R packages!ggplot2!geom\_line()}, instead of using `geom_point()` like we used previously to create scatterplots:
 
-```{r early-january, echo=FALSE}
-# Need to save `early_january_data` to {moderndive} for 2023 data
-early_january_2023_weather <- weather |> 
-  filter(origin == "EWR" & month == 1 & day <= 15)
-```
-
 ```{r hourlytemp, fig.cap="Hourly wind speed in Newark for January 1-15, 2023."}
 ggplot(data = early_january_2023_weather, 
        mapping = aes(x = time_hour, y = wind_speed)) +