Attempting geom_functions while using nycflights13 data