plot - How to implement a timeline in R with start date, end date, and a marker for a "middle date"? -

-



we have data frame in r of following format:

type    request id  event name  first seen           update       last seen          1          event1    1/29/2017 19:54 4/19/2017 14:16 4/19/2017 15:05                  2          event2    2/13/2017 14:20 5/2/2017 12:48  5/2/2017 12:54          3          event3    4/29/2017 16:30 5/12/2017 11:05 5/12/2017 12:08 b          4          event4    5/17/2017 20:23 5/18/2017 12:46 5/18/2017 16:15

the corresponding csv file is:

type,request id,event name,first seen,update,last seen a,1,event1,1/29/2017 19:54,4/19/2017 14:16,4/19/2017 15:05 a,2,event2,2/13/2017 14:20,5/2/2017 12:48,5/2/2017 12:54 a,3,event3,4/29/2017 16:30,5/12/2017 11:05,5/12/2017 12:08 b,4,event4,5/17/2017 20:23,5/18/2017 12:46,5/18/2017 16:15

we want visualize each instance on r timeline such can see event on timeline start date, update, , end date.

we able close our implementation in r goes this:

install.packages("timevis") library("timevis")  df <- read.csv("data.csv", header = true) df_new = rename(df, start = first.seen, end = last.seen, content = request.id) timevis(dataframe_new)

note using 'start' date , 'end' date in implementation. plots following timeline:

enter image description here

now want incorporate 'update' date , time in there somehow such shown pointer in each bar or slab indicating update date , time. bar start @ start date, end @ end date, , have marker @ appropriate location show 'update'.

how can implement in r?

your data

df <- structure(list(type = c("a", "a", "a", "b"), request.id = 1:4,  event.name = c("event1", "event2", "event3", "event4"), first.seen = structure(c(1485719640,  1486995600, 1493483400, 1495052580), tzone = "utc", class = c("posixct",  "posixt")), update = structure(c(1492611360, 1493729280,  1494587100, 1495111560), tzone = "utc", class = c("posixct",  "posixt")), last.seen = structure(c(1492614300, 1493729640,  1494590880, 1495124100), tzone = "utc", class = c("posixct",  "posixt"))), class = "data.frame", .names = c("type", "request.id",  "event.name", "first.seen", "update", "last.seen"), row.names = c(na,  -4l))

tidyverse solution

i melt first.seen & update single column. last.seen values each update value = na (made singularity). add type column specifying point singularities , background ranges (to overlap values). add group value. 

library(tidyverse) library(reshape2) library(lubridate) df1 <- df %>%           nest(first.seen, update) %>%           mutate(data = map(data, ~melt(.x))) %>%           unnest() %>%          mutate(last.seen = ifelse(variable == "update", as.character(na), as.character(last.seen))) %>%          mutate(last.seen = ymd_hms(last.seen)) %>%          mutate(type = ifelse(is.na(last.seen), "point", "background")) %>%          mutate(group = request.id) %>%          rename(start = value, end = last.seen, content = request.id)

first 4 rows of df1

   type content event.name                 end   variable               start       type group 1           1     event1 2017-04-19 15:05:00 first.seen 2017-01-29 19:54:00 background     1 2           1     event1                  na     update 2017-04-19 14:16:00      point     1 3           2     event2 2017-05-02 12:54:00 first.seen 2017-02-13 14:20:00 background     2 4           2     event2                  na     update 2017-05-02 12:48:00      point     2

specify groups , label each row groups=...

timevis(data=df1, groups=data.frame(id=unique(df1$group), content=letters[unique(df1$content)]))

this produces 4 rows of timelines update singularity (point) marking each range of first.seen & last.seen.





wiki

Comments

Post a Comment

Popular posts from this blog

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

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