Removing the "" in the matrix in R in order to work with rows with non empty elements for a list -


i have matrix called: combination_mat , looks this:

combination_mat <- read.csv("data.csv")

combination_mat <- as.matrix(na.omit(combination_mat))

combination_mat

    x1        x2        x3       x4       1  "ff"      "wgs10yr" "wtb3ms" "stlfsi"   2  "ff"      "wgs10yr" "stlfsi" ""       3  "wgs10yr" "wtb3ms"  "stlfsi" ""       4  "ff"      "wtb3ms"  "stlfsi" ""       5  "ff"      "wgs10yr" "wtb3ms" ""       6  "ff"      "wtb3ms"  ""       ""       7  "ff"      "stlfsi"  ""       ""       8  "wgs10yr" "stlfsi"  ""       ""       9  "wgs10yr" "wtb3ms"  ""       ""       10 "ff"      "wgs10yr" ""       ""       11 "stlfsi"  "wtb3ms"  ""       ""       12 "ff"      ""        ""       ""       13 "wgs10yr" ""        ""       ""       14 "wtb3ms"  ""        ""       ""       15 "stlfsi"  ""        ""       ""

however, after using lapply() looping each row, end list elements , emplty elements e.g. "".

the result looking looks this:

combination_mat

    x1        x2        x3       x4       1  "ff"      "wgs10yr" "wtb3ms" "stlfsi"   2  "ff"      "wgs10yr" "stlfsi"      3  "wgs10yr" "wtb3ms"  "stlfsi"      4  "ff"      "wtb3ms"  "stlfsi"     5  "ff"      "wgs10yr" "wtb3ms"       6  "ff"      "wtb3ms"       7  "ff"      "stlfsi"       8  "wgs10yr" "stlfsi"       9  "wgs10yr" "wtb3ms"       10 "ff"      "wgs10yr"       11 "stlfsi"  "wtb3ms"       12 "ff"       13 "wgs10yr"      14 "wtb3ms"      15 "stlfsi"

some links searched: remove spaces cells in matrix r: data.frame rows list remove empty elements string array

thanks!

you can't keep data matrix/ data.frame whilst removing elements, columns of matrix have different lengths. there couple of ways of dealing it.

method 1: (frank's comment) convert matrix list , remove of elements, access elements of list if columns of matrix:

m = matrix(c("a","b","c",""),2,2)  apply(m,1,function(x) x[x!=""])

method 2: keep matrix form of result, convert "" entries na , filter them later calculations.

m = matrix(c("a","b","c",""),2,2)  m[m == ""] <- na

Comments

Post a Comment

Popular posts from this blog

resizing Telegram inline keyboard -

telegram's inline keyboard great feature lots of different use cases. inline buttons added list of items this: inline_keyboard = [[inlinekeyboardbutton(text="button", callback_data="button"), inlinekeyboardbutton(text="reset",callback_data="reset")]] inline_keyboard_markup = inlinekeyboardmarkup(inline_keyboard) update.message.reply_text("hi", reply_markup=inline_keyboard_markup) the above code adds 2 buttons each half width of chat screen. i know the normal keyboard button there resize_keyboard parameter somehow can used. my question is there way resize inline buttons ? example make full width or quarter width. unfortunately, can't now. :( you can suggest @botsupport , might add feature next version.
Read more

javascript - How to bind ViewModel Store to View? -

i'm pretty new ext js , trying embed multiselect inside panel . the viewmodel has stores property can see here: ext.define('test.view.controls.search.searchfiltermodel', { extend: 'ext.app.viewmodel', alias: 'viewmodel.filter', data: { title: '' }, stores: { test: { fields: [ 'id', 'name' ], proxy: { type: 'ajax', url: 'api/test', reader: 'array' }, autoload: true } } }); i bind in view this: viewmodel: { type: 'filter' }, layout: 'fit', border: 1, plain: true, scrollable: 'y', layout: 'fit', bind: { title: '{title}', }, items: { xtype: 'multiselect', scrollable: false, allowblank: true, ddreorder: true, bind: { store: '{test}' }, valuefield: 'id', displayfield: 'name' } ...
Read more

c - Why does alarm() cause fgets() to stop waiting? -

i playing around signals in c. main function asks input using fgets(name, 30, stdin) , , sits there , waits. set alarm alarm(3) , , reassigned sigalrm call function myalarm calls system("say pay attention") . after alarm goes off, fgets() stops waiting input , main fn continues on. happens if change myalarm set variable , nothing it. void myalarm(int sig) { //system("say pay attention"); int x = 0; } int catch_signal(int sig, void (*handler)(int)) { // when signal comes in, "catch" , "handle it" in way want struct sigaction action; // create new sigaction action.sa_handler = handler; // set it's sa_handler attribute function specified in header sigemptyset(&action.sa_mask); // "turn signals in sa_mask off?" "set sa_mask contian no signals, i.e. nothing masked?" action.sa_flags = 0; // not sure, looks aren't using of available flags, whatever may return sigaction(sig, ...
Read more