Каков средний возраст ежедневных гонщиков?

Question

У меня есть простая проблема, которую я пытаюсь решить с помощью tidyverse, в частности dplyr (я считаю, что это подходящая функция).

Каков средний возраст ежедневных райдеров?

Существует data.frame с именем Bike, и есть два столбца данных, включая cyc_freq, который включает наблюдение Daily, и еще один столбец данных, озаглавленный age, который содержит различные возрасты.

Я пытаюсь написать скрипт, который возвращает среднее значение age тех, кто ездит на велосипедах Daily. Я смог решить проблему, но чувствую, что мое решение было неэффективным.

Есть ли более простой способ получить ответ, используя dplyr?

bavg <- filter(BikeData, cyc_freq == "Daily", age)
mean(bavg$age)

Answer 1

Это может быть сделано внутри самого summarise без необходимости делать еще один шаг с filter

library(dplyr)
BikeData %>%
         summarise(Mean = mean(age[cyc_freq == "Daily"]))

---

Или в base R

with(BikeData, mean(age[cyc_freq == "Daily"]))