R - repetition with dplyr -


in order transform "long compact" format data wide format need use rep function.

i can not figure out how integrate dplyr flow.

this repetition need use 

dta1 = as.data.frame(cbind(rep(dta$id, dta$duration), rep(dta$act, dta$duration) ) )  colnames(dta1) <- c('id', 'act')

here dplyr code. 

dta1 %>% group_by(id) %>%  mutate( time = 1:n() ) %>% spread(time, act)

do have idea how put these 2 codes ?

the data 

dta = structure(list(id = c("b10001n1", "b10001n1", "b10001n1", "b10001n1",                    "b10001n1", "b10001n1", "b10001n1", "b10001n1", "b10001n1", "b10001n1",                    "b10001n1", "b10001n1", "b10001n1", "b10001n1", "b10001n1", "b10001n1",                    "b10001n2", "b10001n2", "b10001n2", "b10001n2", "b10001n2", "b10001n2",                    "b10001n2", "b10001n2", "b10001n2", "b10001n2", "b10001n2", "b10001n2",                    "b10001n2", "b10001n3", "b10001n3", "b10001n3", "b10001n3", "b10001n3",                    "b10001n3", "b10001n3", "b10001n3", "b10001n3", "b10001n3", "b10001n3",                    "b10001n3", "b10001n3", "b10001n4", "b10001n4", "b10001n4", "b10001n4",                    "b10001n4", "b10001n4", "b10001n4", "b10001n4", "b10001n4", "b10001n4",                    "b10001n4", "b10001n4", "b10001n4"), act = c("-11", "1704", "1302",                                                                 "1301", "1507", "603", "1301", "101", "502", "1704", "1507",                                                                 "1404", "8888", "603", "1507", "101", "-11", "1302", "1301",                                                                 "1507", "704", "101", "1704", "1704", "3102", "1002", "1704",                                                                 "3101", "101", "-11", "1704", "1302", "1302", "1507", "603",                                                                 "2902", "3201", "812", "1704", "1704", "3701", "101", "-11",                                                                 "1302", "1301", "3101", "1001", "1507", "1006", "2101", "2902",                                                                 "1704", "8888", "1704", "1302"), duration = c(30, 570, 5, 30,                                                                                                               25, 3, 12, 165, 30, 10, 5, 20, 70, 45, 180, 240, 570, 30, 30,                                                                                                               20, 25, 95, 70, 20, 20, 20, 60, 45, 435, 30, 30, 570, 90, 30,                                                                                                               15, 5, 40, 60, 240, 60, 30, 240, 600, 15, 45, 15, 75, 30, 150,                                                                                                               60, 30, 60, 210, 60, 90)), row.names = c(na, 55l), class = "data.frame", .names = c("id",                                                                                                                                                                                                   "act", "duration"))

try 

library(dplyr) library(tidyr) dta[rep(1:nrow(dta), dta$duration), -3] %>%   group_by(id) %>%    mutate( time = 1:n() ) %>%   spread(time, act)

Comments

Post a Comment

Popular posts from this blog

javascript - Using jquery append to add option values into a select element not working -

i'm looking dynamically populate select element names of items stored array. for reason it's not working , i'm not sure why. html: <div class="col-md-4 col-md-offset-4"> <select class="select1"> </select> , <select class="select2"> </select> </div> note i'm using bootstrap layout. here's jquery i'm using try , populate ".select1" jquery: select: function() { $.each(state.greens, function(index, value) { $(".select1").append("<option value =' " + index + " '>" + state.greens[index].name + "</option>"); }); } note function 'select' stored within object called 'display'. state.greens name of array i'm trying access. so @ end of html page call display.select(); call function. no error messages showing in console. also, saw question: appending
Read more

Android soft keyboard reverts to default keyboard on orientation change -

i'm building android soft keyboard , can't seem fix bug - have arabic , qwerty keyboard , when rotate device on qwerty keyboard (or arabic shift), it's if program has "restarted" , becomes arabic keyboard without shift. the onsaveinstancestate(bundle savedinstancestate) not work because application not extend activity inputmethodservice . i put following in android manifest android:configchanges="keyboard|keyboardhidden|orientation" android:windowsoftinputmode="stateunchanged|adjustresize"> i tried using @override public void onconfigurationchanged(configuration newconfig) { super.onconfigurationchanged(newconfig); log.i(mydebug, "config changed " + currentkeyboard.equals(qwerty)); } however, currentkeyboard.equals(qwerty)) results false , made sure true before orientation change. any appreciated. i think applications fault. if application restarting on orientation change
Read more

Rendering JButton to get the JCheckBox behavior in a JTable by using images does not update my table -

i rendering jbutton image on simulate jcheckbox behavior. why don't let jtable render jcheckbox? because need bigger checkboxes , there's no way can resize them (as far know). so, have own table cell renderer , editor. both renders jbutton , checkbox images on them. trying change image checked image unchecked image (or vice versa) , update cell value (boolean true or false). however, reason, getcelleditorvalue() not update table. so, release mouse, value goes original one. any appreciated! lot! public class tableexample extends jframe { jscrollpane pane; jpanel panel; jtable table; object[][] data; mytablemodel tm; renderer buttoncolumn; public tableexample(object[][] data) throws ioexception { string[] columns = {"column#1", "column#2", "column#3", "column#4", "column#5", "column#6"}; this.data = data; this.setpreferredsize(new dimension(700, 500));
Read more