r - Aggregating time on hourly basis and counting it -


i have following dataframe in r.

 date                    car_no  2016-12-24 19:35:00       abc  2016-12-24 19:55:00       def  2016-12-24 20:15:00       rty  2016-12-24 20:35:00       wer  2016-12-24 21:34:00       der  2016-12-24 00:23:00       abc  2016-12-24 00:22:00       ert  2016-12-24 11:45:00       rty  2016-12-24 13:09:00       rty

date format "posixct" "posixt"

i want count hourly movement of car traffic. 12-1,1-2,2-3,3-4 , on

currently approach following

df$time <- ymd_hms(df$date)  df$hours <- hour(df$time)  df$minutes <- minute(df$time)  df$time <- as.numeric(paste(df$hours,df$minutes,sep="."))

and after apply ifelse loop divide in hourly time slots,but think long , tedious way it. there easy approach in r.

my desired dataframe be

 time_slots      car_traffic_count    00-01               2    01-02               0    02-03               0     .                   .     .    19-20               2    20-21               2    21-22               1     .     .     .

simplest use starting hour indicate time interval:

# sample data df = data.frame(time = sys.time()+seq(1,10)*10000, runif(10) )  # summarize library(dplyr) df$hour = factor(as.numeric(format(df$time,"%h")), levels = seq(0,24)) df = df %>%        group_by(hour) %>%        summarize(count=n()) %>%        complete(hour, fill = list(count = 0))

output:

# tibble: 24 x 2      hour count    <fctr> <dbl>  1      0     0  2      1     1  3      2     0  4      3     0  5      4     1  6      5     0  7      6     1  8      7     0  9      8     0 10      9     1 # ... 14 more rows

you can optionally add:

df$formatted = paste0(as.character(df$hour),"-",as.numeric(as.character(df$hour))+1)

at end desired format. hope helps!


Comments

Post a Comment

Popular posts from this blog

php - Vagrant up error - Uncaught Reflection Exception: Class DOMDocument does not exist -

i've set bento/ubuntu-16.04 vagrant box using php 5.6, , getting following error quite few times when try , run shell script: "uncaught reflection exception: class domdocument not exist". i've tried adding following top of script (not together), each no success: "sudo apt-get install php5.6-xml", "sudo apt-get install php5-xml", "sudo apt-get install php-dom" i've tried resetting server "sudo service apache2 restart". does have suggestions?
Read more

vue.js - Create hooks for automated testing -

Image
qa guys complained can't automate frontend testing. because our html looks same outside. lazy hack did this <template> <div :role="$options.name"> ... </div> </template> <script> export default { name: 'vmcomponentname' } </script> which takes name script , applies html. in browser get: <div role="vmcomponentname"> ... </div> line :role="$options.name" goes in every component. is there dry er solutions? please share. additional details i'll explain in details looking for. imagine have vmusercreate form creates user. test case can create user . to automatically test without role, have use following selector: .wrapper > .wrapper > .wrapper > .submit-button the test extremely brittle (will break lot). if use roles can use [role="vmusercreateform"] .submit-button selector. many folds less brittle. so basically, i'm ...
Read more

Add new key value to json node in java -

i have json file : { "id":1, "name":"abc", "addressdetails": { "city":"newyork" } } i wanted add 1 more key-value ("pincode" : "414141") node 'addressdetails'. i tried using : objectmapper mapper = new objectmapper(); jsonnode root = mapper.readtree(new file("d://test.json")); objectnode node = mapper.createobjectnode(); node.with("addressdetails").put("pincode", "414141"); but it's not getting added, there way can ? you can try you should modify file path objectmapper mapper = new objectmapper(); objectnode nodes = mapper.readvalue(new file("d:\\test.txt"), objectnode.class); nodes.with("addressdetails").put("pincode", "414141"); mapper.writer().writevalue(new file("d:\\test.txt"), nodes);
Read more