如何用R的aggregate()计算订阅者与非订阅者周末骑行占比并分析差异？

代码验证 #

你写的代码逻辑完全正确，这里假设is_weekend是编码为1（周末订单）、0（工作日订单）的二分类变量，通过mean()函数可以直接计算出每组用户的周末订单占比：

aggregate(is_weekend ~ is_subscriber , data = citibike, FUN=mean)

结果解读示例 #

假设运行后得到如下输出：

is_subscriber is_weekend
1 0 0.45
2 1 0.20

• 非订阅者（is_subscriber=0）的周末骑行订单占比为45%，说明近半数的骑行订单来自周末时段
• 订阅者（is_subscriber=1）的周末骑行订单占比仅为20%，绝大多数骑行行为集中在工作日

用户骑行行为差异分析 #

• 订阅群体：周末订单占比极低，说明这类用户的骑行需求高度绑定工作日通勤场景，骑行更多是作为上下班的代步工具
• 非订阅群体：周末订单占比接近一半，骑行行为更偏向周末休闲出行，比如游玩、短途逛游等非通勤需求
• 两类用户的骑行时间分布差异显著，直接反映出他们使用骑行服务的核心动机完全不同：订阅者追求通勤效率，非订阅者偏向休闲体验

内容的提问来源于stack exchange，提问作者HELLOWORLD