(to handle the .

Exercise 5.5.2

select(flights, one_of(vars))

select(flights,vars)

/

Saturday

month == 7, month == 8, month == 9

between()

What other variables are missing?

colnames(flights)[colSums(is.na(flights)) > 0]

dep_time %% 2400 <= 600

is preferred

were

It looks like a typo, dota instead of data.

sum_to_one <- function(x, na.rm = FALSE) { x / sum(x, na.rm = na.rm) }

dep_delay

flights, dep_time %% 2400 <= 600)

There is one remaining issue. Midnight is represented by 2400, which would correspond to 1440 minutes since midnight, but it should correspond to 0. After converting all the times to minutes after midnight, x %% 1440 will convert 1440 to zero while keeping all the other times the same. Now we will put it all together. The following code creates a new data frame flights_times with columns dep_time_mins and sched_dep_time_mins. These columns convert dep_time and sched_dep_time, respectively, to minutes since midnight. flights_times <- mutate(flights, dep_time_mins = (dep_time %/% 100 * 60 + dep_time %% 100) %% 1440, sched_dep_time_mins = (sched_dep_time %/% 100 * 60 + sched_dep_time %% 100) %% 1440

arrange(flights, distance / air_time * 60)

c(600, 1200, 2400) %% 2400

filter(flights, between(month, 7, 9))

desc(is.na(dep_time)), dep_time)

horizontal

geom_point

scales

position_dodge()

changing

height = 0.8 and width = 0.8