Почему я не могу создать сводную статистику по сгруппированным данным r?

Question

Поэтому я сгруппировал свои данные в три переменные, используя этот код:

    rate_response_groupby_year_week_equipment <- rate_response_data %>% 
                            filter(TypeOfEquip == 'VAN' |
                                 TypeOfEquip == 'REEFER' |
                                 TypeOfEquip == 'FLAT')%>%
                                 group_by(Year, MonthWeek, TypeOfEquip) %>%
                                 summarize(Lanes = n())

, который возвращает эти результаты:

# A tibble: 417 x 4
# Groups:   Year, MonthWeek [139]
Year  MonthWeek TypeOfEquip  Lanes
<chr> <fct>     <chr>        <int>
1 2016  Jan_W1    FLAT            68
2 2016  Jan_W1    REEFER        1603
3 2016  Jan_W1    VAN          28302
4 2016  Jan_W2    FLAT          7602
5 2016  Jan_W2    REEFER       72184

Я хочу найти среднее значение для столбца дорожек, но когдаЯ запускаю этот код:

    weekly_mean <- rate_response_groupby_year_week_equipment %>%
        summarize(Mean = mean(Lanes))

Я получаю среднее значение только по одной из групп, а не по всем из них, которое выглядит так:

> weekly_mean
# A tibble: 139 x 3
# Groups:   Year [?]
Year  MonthWeek   Mean
<chr> <fct>      <dbl>
1 2016  Jan_W1     9991 
2 2016  Jan_W2    72640 
3 2016  Jan_W3    10860 
4 2016  Jan_W4    10338 
5 2016  Feb_W1    13222.

любая помощь будет принята с благодарностью