
Resumos Agrupados com summarize() | 63
Por exemplo, vamos observar os aviões (identificados pelo número de cauda) que têm
os maiores atrasos médios:
delays <- not_cancelled %>%
group_by( tailnum ) %>%
summarize(
delay = mean( arr_delay)
)
t( data = delays, mapping = aes( x = delay))
geom_freqpoly
= 10
Nossa, alguns aviões têm um atraso médio de 5 horas (300 minutos)!
A história é, na verdade, um pouquinho diferente. Podemos obter mais insight se de-
senharmos um diagrama de dispersão do número de voos versus atraso médio:
delays <- not_cancelled %>%
group_by( tailnum ) %>%
summarize(
delay = mean( arr_delay, na.rm = TRUE ...