r - Subset rows according to a range of time (incl. minutes) -

-



my question follow-up on question raised here user wet feet:

this modified dataset:

      date_time loc_id node  energy   kgco2  1 2009-02-27 00:11:08     87  103 0.00000 0.00000  2 2009-02-27 01:05:05     87  103 7.00000 3.75900  3 2009-02-27 02:05:05     87  103 6.40039 3.43701  4 2009-02-28 02:10:05     87  103 4.79883 2.57697  5 2009-02-28 04:05:05     87  103 4.10156 2.20254  6 2009-02-28 05:05:05     87  103 2.59961 1.39599 7 2009-03-01 03:20:05     87  103 2.59961 1.39599

i trying rows fall within specific time interval, e.g. 02:05:00 03:30:00. 

3 2009-02-27 02:05:05     87  103 6.40039 3.43701  4 2009-02-28 02:10:05     87  103 4.79883 2.57697 7 2009-03-01 03:20:05     87  103 2.59961 1.39599

applying solution in linked question (hour lubridate package), however, doesn't suffice since have consider minutes of interval. use interval function lubridate package include minutes, since dataframe covers different dates, wouldn't help.

i particularly curious whether there solution allowing make use of dplyr 's filter verb. or using xts package way forward?

in code below, each row calculate number of seconds since midnight , check whether value within time range in question, converted seconds since midnight. i've included code set data datetime format (and utc time zone) since data sample wasn't provided in reproducible form.

1. set data frame

library(lubridate) library(tidyverse)  dat = read.table(text="date_time time loc_id node  energy   kgco2                   1 2009-02-27 00:11:08     87  103 0.00000 0.00000                   2 2009-02-27 01:05:05     87  103 7.00000 3.75900                   3 2009-02-27 02:05:05     87  103 6.40039 3.43701                   4 2009-02-28 02:10:05     87  103 4.79883 2.57697                   5 2009-02-28 04:05:05     87  103 4.10156 2.20254                   6 2009-02-28 05:05:05     87  103 2.59961 1.39599                  7 2009-03-01 03:20:05     87  103 2.59961 1.39599",                   header=true, stringsasfactors=false)  dat$date_time = as.posixct(paste0(dat$date_time, dat$time), tz="utc") dat = dat %>% select(-time)

2. helper function convert hms time strings seconds since midnight

hms_to_numeric = function(x) {   x = as.posixct(paste("2010-01-01", x))   3600 * hour(x) + 60 * minute(x) + second(x) }

3. filter data include rows within time range

dat %>%    filter(between(as.numeric(date_time) - as.numeric(as.posixct(substr(date_time,1,10), tz="utc")),                   hms_to_numeric("02:05:00"),                   hms_to_numeric("03:30:00"))) 
            date_time loc_id node  energy   kgco2 1 2009-02-27 02:05:05     87  103 6.40039 3.43701 2 2009-02-28 02:10:05     87  103 4.79883 2.57697 3 2009-03-01 03:20:05     87  103 2.59961 1.39599




wiki

Comments

Post a Comment

Popular posts from this blog

python - Read npy file directly from S3 StreamingBody -

-
i have many .npy (numpy) , .json files saved in s3, need download , load these files. for json files downloading files , loading dictionary using following code: obj = s3.object(bucket, key) response = obj.get() body = response['body'].read().decode('utf-8') data = json.loads(body) that way avoid writing .json file disk , reading it. now want same .npy files, equivalent? currently downloading file, saving temp file on disk , loading np.load avoid if possible. following https://stackoverflow.com/a/28196540/3509999 : obj = s3.object(bucket, key) io.bytesio(obj.get()["body"].read()) f: # rewind file f.seek(0) arr = np.load(f) wiki
Read more

kotlin - Out-projected type in generic interface prohibits the use of metod with generic parameter -

-
i start using kotlin , defined interface this: interface aadapter<vh : recyclerview.viewholder> { fun oncreateaviewholder(parent: viewgroup): vh fun onbindaviewholder(v: vh, position: int) } and when try use on code: class klasa ( private val adapter: aadapter<*> ) { fun dosth(){ //... val vh = this.adapter.oncreateaviewholder(parent) //on below line error adapter.onbindaviewholder(v, position) //... } } i error out-projected type 'aadapter<*>' prohibits use of 'public abstract fun onbindaviewholder(v: t, position: int): unit i tied add "in" or "out" definition i'm confused. how allow it. replace aadapter<*> aadapter<recyclerview.viewholder> . class klasa ( private val adapter: aadapter<recyclerview.viewholder> ) { // ... because have declared aadapter has type parameter vh type subclass of recyclerview....
Read more

Asterisk AGI Python Script to Dialplan does not work -

-
i'm stuck project have check database of sip extension incoming caller id , dial sip extension. below receive when run script on asterisk cli. -- registered sip '9125' @ 192.168.1.102:50142 > saved useragent "zoiper rv2.8.40" peer 9125 [2017-08-22 13:53:33] notice[5095]: chan_sip.c:24558 handle_response_peerpoke: peer '9125' reachable. (17ms / 2000ms) == using sip rtp tos bits 184 == using sip rtp cos mark 5 -- executing [0112617769@from-trunk:1] answer("sip/obitrunk1-0000000d", "") in new stack > 0x1ca50d0 -- probation passed - setting rtp source address 192.168.1.98:16834 -- executing [0112617769@from-trunk:2] agi("sip/obitrunk1-0000000d", "test.py") in new stack -- launched agi script /var/lib/asterisk/agi-bin/test.py args: ['/var/lib/asterisk/agi-bin/test.py'] env line: agi_request: test.py env line: agi_channel: sip/obitrunk1-0000000d env line: agi_language: en env line: a...
Read more