Я тренируюсь с R и наткнулся на «лежачий полицейский», пытаясь создать график авиапассажиров за месяц.
Я хочу показать отдельный месячный линейный график для каждого года с 1949 по 1960 год, по которому были записаны данные. Для этого я использовал ggplot, чтобы создать линейный график со значениями за месяц. Это работает нормально, однако, когда я пытаюсь разделить это по годам, используя facet_wrap () и форматируя текущее поле month
: facet_wrap(format(air$month[seq(1, length(air$month), 12)], "%Y"))
; он возвращает это:
Я также попытался отформатировать фасет, введя свою последовательность лет: rep(c(1949:1960), each = 12)
. Это возвращает другой результат, который лучше, но все же неверен:
Вот мой код:
air = data.frame(
month = seq(as.Date("1949-01-01"), as.Date("1960-12-01"), by="months"),
air = as.vector(AirPassengers)
)
ggplot(air, aes(x = month, y = air)) +
geom_point() +
labs(x = "Month", y = "Passengers (in thousands)", title = "Total passengers per month, 1949 - 1960") +
geom_smooth(method = lm, se = F) +
geom_line() +
scale_x_date(labels = date_format("%b"), breaks = "12 month") +
facet_wrap(format(air$month[seq(1, length(air$month), 12)], "%Y"))
#OR
facet_wrap(rep(c(1949:1960), each = 12))
Итак, как мне составить индивидуальный график за год?
Спасибо!