Update 93-appendixC.Rmd

93-appendixC.Rmd

@@ -361,12 +361,13 @@ library(nycflights13)
 flights_day <- mutate(flights, date = as.Date(time_hour))
 flights_summarized <- flights_day %>%
   group_by(date) %>%
-  summarize(median_arr_delay = median(arr_delay, na.rm = TRUE))
+  summarize(median_arr_delay = median(arr_delay, na.rm = TRUE)) %>%
+  as.data.frame()
 rownames(flights_summarized) <- flights_summarized$date
 flights_summarized <- select(flights_summarized, -date)
 dyRangeSelector(dygraph(flights_summarized))
 ```
 
 <br>
 
-The syntax here is a little different than what we have covered so far.  The `dygraph` function is expecting for the dates to be given as the `rownames` of the object.  We then remove the `date` variable from the `flights_summarized` data frame since it is accounted for in the `rownames`.  Lastly, we run the `dygraph` function on the new data frame that only contains the median arrival delay as a column and then provide the ability to have a selector to zoom in on the interactive plot via `dyRangeSelector`.  (Note that this plot will only be interactive in the HTML version of this book.)
+The syntax here is a little different than what we have covered so far.  The `dygraph` function is expecting for the dates to be given as the `rownames` of the object.  We covert our data to a data frame (since tibbles don't allow for easy row name manipulation) and then remove the `date` variable from the `flights_summarized` data frame since it is accounted for in the `rownames`.  Lastly, we run the `dygraph` function on the new data frame that only contains the median arrival delay as a column and then provide the ability to have a selector to zoom in on the interactive plot via `dyRangeSelector`.  (Note that this plot will only be interactive in the HTML version of this book.)