How to convert a list consisting of vector of different lengths to a usable data frame in R? -

-

i have (fairly long) list of vectors. vectors consist of russian words got using strsplit() function on sentences.

the following head() returns: 

[[1]] [1] "модно"     "создавать" "резюме"    "в"         "виде"       [[2]] [1] "ты"        "начианешь" "работать"  "с"         "этими"      [[3]] [1] "модно"            "называть"         "блогер-рилейшенз" "―"                "начинается"       "задолго"           [[4]] [1] "видел" "по"    "сыну," "что"   "он"     [[5]] [1] "четырнадцать," "я"             "поселился"     "на"            "улице"          [[6]] [1] "широко"     "продолжали" "род."

note vectors of different length.

what want able read first words each sentence, second word, third, etc.

the desired result this: 

    p1              p2           p3                 p4    p5           p6 [1] "модно"         "создавать"  "резюме"           "в"   "виде"       na [2] "ты"            "начианешь"  "работать"         "с"   "этими"      na [3] "модно"         "называть"   "блогер-рилейшенз" "―"   "начинается" "задолго"          [4] "видел"         "по"         "сыну,"            "что" "он"         na [5] "четырнадцать," "я"          "поселился"        "на"  "улице"      na [6] "широко"        "продолжали" "род."             na    na           na

i have tried use data.frame() didn't work because rows of different length. tried rbind.fill() plyr package, function can process matrices.

i found other questions here (that's got plyr from), combining instance 2 data frames of different size.

thanks help.

try this: 

word.list <- list(letters[1:4], letters[1:5], letters[1:2], letters[1:6]) n.obs <- sapply(word.list, length) seq.max <- seq_len(max(n.obs)) mat <- t(sapply(word.list, "[", = seq.max))

the trick is, that, 

c(1:2)[1:4]

returns vector + 2 nas


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

c - Unrecognised emulation mode: elf_i386 on MinGW32 -

-
i'm trying make kernel, , cannot link c output assembly. ld . i'm getting error: unrecognized emulation mode: elf_i386 i'm using windows 10 professional mingw32 , msys. code using: link.ld /* * link.ld */ output_format(elf32-i386) entry(start) sections { . = 0x100000; .text : { *(.text) } .data : { *(.data) } .bss : { *(.bss) } } kernel.c /* * kernel.c */ void kmain(void) { const char *str = "my first kernel"; char *vidptr = (char*)0xb8000; //video mem begins here. unsigned int = 0; unsigned int j = 0; /* loops clears screen * there 25 lines each of 80 columns; each element takes 2 bytes */ while(j < 80 * 25 * 2) { /* blank character */ vidptr[j] = ' '; /* attribute-byte - light grey on black screen */ vidptr[j+1] = 0x07; j = j + 2; } j = 0; /* loop writes string video memory */ while(str[j] != '\0') { /
Read more