时间戳

首页 > 解决方案 > 每日骑手的平均年龄是多少？

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

问题描述

有一个我试图用 解决的简单问题tidyverse，特别是dplyr（我相信这是适当的功能）。

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

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

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

有没有更简单的方法来实现我的答案dplyr？

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

标签： rdplyrstatistics

解决方案

它可以在summarise自身内部完成，而无需另外一步filter

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

或在base R

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

推荐阅读