unnest - "Unnesting" a dataframe in R -

-

i have following data.frame:

df <- data.frame(id=c(1,2,3),                   first.date=as.date(c("2014-01-01", "2014-03-01", "2014-06-01")),                   second.date=as.date(c("2015-01-01", "2015-03-01", "2015-06-1")),                  third.date=as.date(c("2016-01-01", "2017-03-01", "2018-06-1")),                  fourth.date=as.date(c("2017-01-01", "2018-03-01", "2019-06-1")))  > df    id first.date second.date third.date fourth.date 1  1 2014-01-01  2015-01-01 2016-01-01  2017-01-01 2  2 2014-03-01  2015-03-01 2017-03-01  2018-03-01 3  3 2014-06-01  2015-06-01 2018-06-01  2019-06-01

each row represents 3 timespans; i.e. time spans between first.date , second.date, second.date , third.date, , third.date , fourth.date respectively.

i to, in lack of better word, unnest dataframe obtain instead:

  id  startdate    enddate 1  1 2014-01-01 2015-01-01 2  1 2015-01-01 2016-01-01 3  1 2016-01-01 2017-01-01 4  2 2014-03-01 2015-03-01 5  2 2015-03-01 2017-03-01 6  2 2017-03-01 2018-03-01 7  3 2014-06-01 2015-06-01 8  3 2015-06-01 2018-06-01 9  3 2018-06-01 2019-06-01

i have been playing around unnest function tidyr package, came conclusion don't think it's i'm looking for.

any suggestions?

you can try tidyr/dplyr follows:

library(tidyr) library(dplyr) df %>% gather(datetype, startdate, -id) %>% select(-datetype) %>% arrange(id) %>% group_by(id) %>% mutate(enddate = lead(startdate))

you can eliminate last row in each id group adding:

%>% slice(-4)

to above pipeline.


Comments

Post a Comment

Popular posts from this blog

ruby - Trying to change last to "x"s to 23 -

-
i have been playing around irb , have string looks this: irb(main):072:0> puts ["[\"4354 5432 5432 xxxxx\", \"6547 6547 8543 xxxxx\", \"2344 6543 6674 xxxxx\", \"2346 6236 7543 xxxxx\", \"1273 5585 5587 xxxxx\"]"] => nil irb(main):073:0> what want gsub last 2 "x" s of each 17 digit combination, 23 . what i've tried far (i've been using rubular): a.gsub(/\d[x]/,"23") <= grabs "x" s i'm close a.gsub(/\w[x{2}]/,"23") <= grabs "x" s grabs two digits each combination. is there easier way i'm not understanding? a.gsub(/\d{4} \d{4} \d{4} xxx\kxx/, '23') \d{4} = 4 digits what \k drop matched far. can use don't replace entire number, still able validate have in desired format.
Read more

jquery - Clone last and append item to closest class -

-
this bare-bones code on page: <div class="list-container"> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> </div> <p><button class="add-list-item">add</button></p> <div class="list-container"> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> <div class="single-list-item"> <button>remove</button> </div> </div> <p><button class="add-list-item">add</button></p> <di...
Read more

css - Can I use the :after pseudo-element on an input field? -

-
i trying use :after css pseudo-element on input field, not work. if use span , works ok. <style type="text/css"> .mystyle:after {content:url(smiley.gif);} .mystyle {color:red;} </style> this works (puts smiley after "buu!" , before "some more") <span class="mystyle">buuu!</span>a more this not work - colors somevalue in red, there no smiley. <input class="mystyle" type="text" value="somevalue"> what doing wrong? should use pseudo-selector? note: cannot add span around input , because being generated third-party control. :after , :before not supported in internet explorer 7 , under, on elements. it's not meant used on replaced elements such form elements (inputs) , image elements . in other words it's impossible pure css. however if using jquery can use $(".mystyle").after("add smiley here"); api docs on .after to ...
Read more