Как агрегировать значения переменных для каждых 10 бинов другой переменной - PullRequest
Новая
       6

Как агрегировать значения переменных для каждых 10 бинов другой переменной

0 голосов
/ 13 января 2019

Я работаю с данными об автомобиле и намереваюсь подсчитать, сколько раз водитель делал перерывы за каждые 10 км. У меня есть следующие образцы данных:

Событие резкого прорыва - это измерение, которое объясняет, применял ли он резкий перерыв или быстро ускорялся в тот момент времени 

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)

Как я могу создать такой счет для всех автомобилей? Обратите внимание, что на каждом автомобиле есть показания одометра.

UPDATE:

У меня работает приведенный ниже код.

temp <-data%>% group_by (идентификатор автомобиля)%>%

mutate (Bins = cut (одометр, перерывы = seq (мин (одометр), макс (одометр), = 10), метки = F))

temp_new <-temp_new%>%

group_by (машина, контейнеры)%>%

summarise_all (funs (среднее, sum))

...