How to merge multiples columns of a table into 1 in R -

-

i have data frame (control.sub) containing multiple columns (t1,t2,t3,t4,t5,t6). want merge these columns one, na should removed.

> control.sub                              t1                         t2                         t3                         t4 29   5500024017802120306174.h01 5500024017802120306174.g02 5500024017802120306174.e03 5500024017802120306174.d04 810  5500024030401071707292.h01 5500024030401071707292.g02 5500024030401071707292.e03 5500024030401071707292.d04 4693 5500024035736031208612.g08 5500024035736031208612.e09 5500024035736031208612.d10 5500024035736031208612.b11                              t5                         t6 29   5500024017802120306174.b05 5500024017802120306174.a06 810  5500024030401071707292.b05 5500024030401071707292.a06 4693 5500024035736031208612.a12                       <na>

i want final outcome as:

> control.sub                                  t1     29   5500024017802120306174.h01 5500024017802120306174.g02 5500024017802120306174.e03 5500024017802120306174.d04     810  5500024030401071707292.h01 5500024030401071707292.g02 5500024030401071707292.e03 5500024030401071707292.d04     4693 5500024035736031208612.g08 5500024035736031208612.e09 5500024035736031208612.d10 5500024035736031208612.b11         5500024017802120306174.b05 5500024017802120306174.a06       5500024030401071707292.b05 5500024030401071707292.a06      5500024035736031208612.a12

one columns (t1) containing values.

slightly more reproducible example:

df <- data.frame(t1 = c(letters[1:5],na), t2 = c(na, letters[6:10]),                   t3 = c(11:12,na,13:15), stringsasfactors=false) df #     t1   t2 t3 # 1    <na> 11 # 2    b    f 12 # 3    c    g na # 4    d    h 13 # 5    e    14 # 6 <na>    j 15   df2 <- data.frame(t1 = apply(df, 1, function(s) paste(s[!is.na(s)], collapse=" ")) )  df2 #       t1 # 1   11 # 2 b f 12 # 3    c g # 4 d h 13 # 5 e 14 # 6   j 15

edit

i think op looking this, his/her example wrong:

unlist_not_na <- function(df){   v <- unlist(df)   v[!is.na(v)] } df3 <- data.frame(t1 = unlist_not_na(df))  df3 #     t1 # t11  # t12  b # t13  c # t14  d # t15  e # t22  f # t23  g # t24  h # t25  # t26  j # t31 11 # t32 12 # t34 13 # t35 14 # t36 15

Comments

Post a Comment

Popular posts from this blog

html - Firefox flex bug applied to buttons? -

-
i'm trying apply flex button on firefox i'm having problem on chrome doesn't happens. this css: .button { display: inline-flex; align-items: center; } as can see in fiddle, "caret" word moved new line, happens if element <button> tag, <div> works expected. http://codepen.io/anon/pen/xblmgx is firefox bug or there css i'm missing? nevermind, looks "mr firefox" doesn't idea... <button> not implementable (by browsers) in pure css, bit of black box, perspective of css. means don't react in same way e.g. <div> would. this isn't specific flexbox -- e.g. don't render scrollbars if put "overflow:scroll" on button, , don't render table if put "display:table" on it. stepping further, isn't specific <button> . consider <fieldset> , <table> have special rendering behavior: data:text/html,<fieldset style="d...
Read more

html - Missing border-right in select on Firefox -

-
Image
when put select div width , padding-left, options have no border on right. more, happend if select have width 118px , parent have 15px of padding left! have idea, going on? my code: <!doctype html> <html> <head lang="en"> </head> <body> <div style="width: 1000px; padding-left: 15px;"> <select style="width: 118px;"> <option>a</option> <option>b</option> <option>c</option> </select> </div> </body> </html> and result: here plunker: click it happend on firefox on windows. tested on 40.0.2 version -webkit-box-sizing: border-box; -moz-box-sizing: border-box; -ms-box-sizing: border-box; box-sizing: border-box; source: https://stackoverflow.com/a/11390432/4431269 source of problem: https://bugzilla.mozilla.org/show_bug.cgi?id=924068 and use of google ! edit: (source of problem, explained) after rea...
Read more

python - build a suggestions list using fuzzywuzzy -

-
i building suggestion engine database. i'm using fuzzywuzzy module match user input string existing database shown below. if request.method == "get": display_dict = {} user_input = request.get["user_input"] # user input match_dict = {} food_items_obj = food_items.objects.all() # fetch objects table items in food_items_obj : match = fuzz.ratio(user_input.lower(),items.name.lower()) # try match user input existing names match_dict[match] = items.name # put 1 dictionary matched_dict = ordereddict(sorted(match_dict.items(),reverse = true)) # sort dictionary if max(matched_dict.keys()) == 100: # if exact match put in dict , return display_dict[100] = matched_dict[100] else : # if not found try best matching words.. ###########this part need help! ############# k,v in matched_dict.items(): if user_input in v : display_dict[k]...
Read more