Упорядочить данные (найти среднее)

Question

У меня есть набор данных с ежемесячными наблюдениями (с января по декабрь) за период времени, например (с 2000 по 2018). Теперь я пытаюсь взять среднее значение с марта по июль каждого года.

Воспроизводимый пример:

zz <- "Year    Month  Value
       2000    1        25
       2000    2        28 
       2000    3        22
       2000    12       26
       2001     1       27
       2018    11       30
       2018    12       29"
df <- read.table(text = zz, header = TRUE)

^{Создано в 2020- 08-03 с помощью пакета реплекс (v0.3.0)}

Может ли кто-нибудь мне помочь в этом отношении?

Заранее большое спасибо.

Answer 1

library(dplyr)

data <- data.frame(
  year = rep(c(2000, 2001, 2002), each = 12),
  month = rep(1:12, times = 3),
  value = sample(1:1000, 3*12)
)

data.from.march.to.july <- data[data$month %in% 3:7, ]

data.averages <- data.from.march.to.july %>%
  group_by(year) %>%
  summarise(avg = mean(value), .groups = "drop_last")