r - Transpose list rows into a dataframe -


suppose list structure

lst=list(structure(c("level1", "level2", "level4", "level5","18", "abc", "pqr", "lmn"),          .dim = c(4l, 2l)),       structure(c("level1", "level2", "level3", "level5", "level6", "20", "xyz", "hive", "foo", "bar"),          .dim = c(5l, 2l)),      structure(c("level1", "level3", "level4", "level5","level6", "22", "dark", "yellow","foobar", "blue"),          .dim = c(5l, 2l)),      structure(c("level1", "level2", "level3", "level5","level6","level7","24", "dvd", "dxs","glass", "while","though"),       .dim = c(6l, 2l))      )

expecting o/p this

     level1 level2  level3  level4  level5  level6  level7 1)     18       abc     na      pqr     lmn     na      na 2)     20       xyz     hive    na      foo     bar     na 3)     22       na      dark    yellow  foobar  blue    na 4)     24       dvd     dxs     na      glass   while   though

the first column list should transposed , accordingly, corresponding data should looked rows.

trying transpose of rows column giving error

 unique(t(list_temp[[c(1,2)]][,1])) error:error in list_temp[[c(1, 2)]][, 1] : incorrect number of dimensions

also tried with

apply(list_temp,1,function(x){list_temp[[x]][,1]})

but gave me 

error in apply(list_temp, 1, function(x) { :    dim(x) must have positive length

any suggestion on how should done.

thanks.

two approaches:

1) using data.table-package

with:

library(data.table) dcast(rbindlist(lapply(lst, as.data.table), idcol = 'id'),       id ~ v1, value.var = 'v2')[, id := null][]

you get:

   level1 level2 level3 level4 level5 level6 level7 1:     18    abc     na    pqr    lmn     na     na 2:     20    xyz   hive     na    foo    bar     na 3:     22     na   dark yellow foobar   blue     na 4:     24    dvd    dxs     na  glass  while though

2) using base r

with:

reshape(transform(do.call(rbind.data.frame, lst),                   r = rep(seq_along(lst), lengths(lst)/2)),         idvar = 'r', timevar = 'v1', direction = 'wide')[,-1]

you get:

   v2.level1 v2.level2 v2.level4 v2.level5 v2.level3 v2.level6 v2.level7 1         18       abc       pqr       lmn      <na>      <na>      <na> 5         20       xyz      <na>       foo      hive       bar      <na> 10        22      <na>    yellow    foobar      dark      blue      <na> 15        24       dvd      <na>     glass       dxs     while    though

Comments

Post a Comment

Popular posts from this blog

Is there a better way to structure post methods in Class Based Views -

i'm using class based views in django , never specify url in ajax calls , omit action parameter in form because know these requests go through post method of class based view. notice view - profile page make many requests depending on user updating on page - post method become convoluted , if/else mess example: def post(self, request, *args, **kwargs): # handle user changing available date if request.post.get('availabledate') != none: self.updateavailabledate(request) return jsonresponse({'result':'success'}) if request.post.get('newprojectname') != none: creative_user = creativeuserprofile.objects.get(id = request.user.id) project = project.create_project(creative_user, request.post['newprojectname']) project.save() return jsonresponse({'projectid': project.id }) if request.post.get('projectimage') != none , request.files['file']: proj
Read more

performance - Why is XCHG reg, reg a 3 micro-op instruction on modern Intel architectures? -

i'm doing micro-optimization on performance critical part of code , came across sequence of instructions (in at&t syntax): add %rax, %rbx mov %rdx, %rax mov %rbx, %rdx i thought had use case xchg allow me shave instruction , write: add %rbx, %rax xchg %rax, %rdx however, dimay found agner fog's instruction tables , xchg 3 micro-op instruction 2 cycle latency on sandy bridge, ivy bridge, broadwell, haswell , skylake. 3 whole micro-ops , 2 cycles of latency! 3 micro-ops throws off 4-1-1-1 cadence , 2 cycle latency makes worse original in best case since last 2 instructions in original might execute in parallel. now... cpu might breaking instruction micro-ops equivalent to: mov %rax, %tmp mov %rdx, %rax mov %tmp, %rdx where tmp anonymous internal register , suppose last 2 micro-ops run in parallel latency 2 cycles. given register renaming occurs on these micro-architectures, though, doesn't make sense me done way. why wouldn't register renamer
Read more

jquery - Responsive Navbar with Sub Navbar -

good day, forgive me nav vocabulary not best. if question confusing apologize. i'm working on navigation bar needs centered on page @ 768px , above. items in nav open (or perhaps toggle) subnav lives directly below. these nav should appear centered on page. i have been able work through responsive portion of nav bar, having main items align vertically , sub nav menu of each item roll out below, , gave them indent separation. working well. however, issue not responsive side, behavior @ width greater 768px. happens toggling menu's sub navigation pushes other main items down page below sub nav. here's code: $(document).ready(function () { //stick in fixed 100% height behind navbar don't wrap $('#slide-nav.navbar-inverse').after($('<div class="inverse" id="navbar-height-col"></div>')); $('#slide-nav.navbar-default').after($('<div id="navbar-height-col"></d
Read more