Я пытаюсь обобщить некоторые данные об осадках, используя пакет bomrang
и tidyverse.
Я пытался использовать dplyr::group_by(year)
, чтобы затем использовать summarise
и mean
для расчета среднегодового количества осадков. Но вместо того, чтобы получать другое среднегодовое значение, я получаю одинаковое среднее значение по всему фрейму данных.
# load the libraries
library(bomrang)
library(tidyverse)
# get the data
perth <- get_historical(009225, "rain")
# group by year and calculate average rainfall per year
perth %>%
select(station_number, year:day, rainfall) %>%
group_by(year) %>%
summarise(yearly_avg = mean(rainfall, na.rm = TRUE))
Я бы ожидал значение yearly_avg
для каждого из 26 лет данных, например,1993 yearly_avg
должен быть 2.032013, а 1994 будет 2.026849 и т. д.
Вместо этого я получаю только одно значение 2.002883. Я пытался использовать mutate
и as.factor
в год, чтобы увидеть, изменит ли это результат, но это не так.