每日骑手的平均年龄是多少？答案

【问题标题】：What is the average age of daily riders?每日骑手的平均年龄是多少？
【发布时间】：2020-06-19 16:59:28
【问题描述】：

有一个我想用tidyverse 解决的简单问题，尤其是dplyr（我相信这是合适的功能）。

每日骑手的平均年龄是多少？

有一个名为Bike 的data.frame 有两列数据，包括cyc_freq 包括Daily 观察和另一列名为age 的数据，其中包含不同的年龄。

我正在尝试编写一个脚本，返回骑自行车的人的平均 age Daily。我能够解决问题，但感觉我的解决方案效率低下。

有没有更简单的方法可以使用dplyr 来回答我的问题？

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

【问题讨论】：

【解决方案1】：

它可以在summarise 本身内完成，而无需与filter 进行另一个步骤

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

或在base R

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

【讨论】：