ggplot, как получить отдельные участки за каждый месяц в R

Question

Я хотел бы получить отдельный участок за каждый месяц (12 участков в общей сложности за каждый месяц). Я использую набор данных nycflights13.

by_tailnum <- group_by(flights, tailnum) 
delay <- summarise(by_tailnum, 
        count = n(), 
        dist = mean(distance, na.rm = TRUE), 
        delay = mean(arr_delay, na.rm = TRUE)) 
delay <- filter(delay, count > 20, dist < 2000) 




ggplot(delay, aes(dist, delay)) + 
    geom_point(aes(size = count), alpha = 1/2) + 
    labs(x="Distancia (millas)", y="Retraso (mins.)") + 
    geom_smooth(method = 'gam') + 
    scale_size_area() + 
    ggtitle("Relación entre distancia y retrasos en los vuelos") + 
    scale_radius(name="Núm. vuelos") 

Я попытался добавить следующее с

nycflights13::flights$month <- month(as.Date(Date)) 

Но я получаю сообщение об ошибке; Ошибка: не удалось найти функцию «месяц»

Заранее спасибо.

Answer 1

Месяц уже в наборе данных полетов, так что вы могли бы сделать что-нибудь вроде этого:

library(dplyr) 
    library(nycflights13) 
    library(ggplot2) 

    data("flights") 
    by_tailnum <- group_by(.data = flights, month, tailnum) 
    delay <- summarise(by_tailnum, 
         count = n(), 
         dist = mean(distance, na.rm = TRUE), 
         delay = mean(arr_delay, na.rm = TRUE)) 
    delay <- filter(delay, count > 20, dist < 2000) 




    ggplot(delay, aes(dist, delay)) + 
      geom_point(aes(size = count), alpha = 1/2) + 
      labs(x="Distancia (millas)", y="Retraso (mins.)") + 
      geom_smooth(method = 'gam') + 
      scale_size_area() + 
      ggtitle("Relación entre distancia y retrasos en los vuelos") + 
      scale_radius(name="Núm. vuelos") + 
      facet_grid(month ~ .)