Question

我正在研究车辆数据，我打算计算驾驶员每10公里应用一次休息的次数。我有以下示例数据：

严峻破坏事件（Harsh Breaking Event）是一种度量，用于说明他在那个时间点是实施了严厉的突破还是快速加速

CAR ID        Date             Harsh Event (0/1)      Odometer
xx        2014-01-01 06:23:59              1             1213  
xx        2014-01-01 06:24:00              0             1213  
xx        2014-01-01 06:24:01              0             1213  
xx        2014-01-01 06:24:02              1             1213

输出应为

CAR ID             Date             Harsh Event (0/1)          Odometer
XXX            2014-01-01 06:27:23              23                   1223

我尝试使用以下代码，但不起作用

Low-val<-min(data$Odometer)

High-val<-max(data$Odometer)

breakpoints<-seq(Low-val, High-val, by = 10)

output<-data%>%

    group_by(car)%>%

    aggregate(Breaking_Event~cut(Odometer,breaks=breakpoints),sum)

我如何为所有汽车生成这样的计数？请注意，每辆车都有里程表读数。

更新：

下面的代码对我有用。

temp <-data％>％group_by（汽车ID）％>％

mutate（Bins = cut（里程表，breaks = seq（min（里程表），max（里程表），by = 10），labels = F））

temp_new <-temp_new％>％

group_by（汽车，垃圾箱）％>％

summarise_all（funs（mean，sum））

如何为另一个变量的每10个仓位汇总变量的值

0 个答案: