r - How to filter a matrix by the value of another -


i have 2 matrices: m1 , m2.

m1:

    1   2   3   4   5 1  v11 v12 v13 v14 v15 2  v21 v22 v23 v24 v25 3  v31 v32 v33 v34 v35  4  v41 v42 v43 v44 v45 5  v51 v52 v53 v54 v55

m2:

 x1, x2  1   1  1   2  1   4  2   2  2   3      2   5

i keep m1 if rowname , colname found in m2, otherwise, write "na" location

e.g. result should be:

m1:

    1   2   3   4   5 1  v11 v12 na  v14  na 2  na  v22 v23  na v25 3  na  na  na  na  na  4  na  na  na  na  na 5  na  na  na  na  na

so far tried use:

m1[!(rownames(m1) %in% m2$x1 & colnames(m1) %in% m1$x2)]<-na

the result not right? suggestions?

in old answer thought op wanted select specific elements m1, based on m2. hong ooi's answer works if dimnames of m1 line with row , column indices, , m2 contains integers , not character values. here rough solution if not line up.

m1 <- matrix(c("v11","v21","v12","v22","v13","v23"),nrow=2,ncol=3) dimnames(m1) <- list(c("r2","r1"),c("c1","c2","c3")) m2 <- matrix(c("r1","r1","r2","c1","c3","c3"),nrow=3,ncol=2)  > m1    c1    c2    c3    r2 "v11" "v12" "v13" r1 "v21" "v22" "v23"  > m2      [,1] [,2] [1,] "r1" "c1" [2,] "r1" "c3" [3,] "r2" "c3"  temp <- matrix(true,nrow=nrow(m1),ncol=ncol(m1))  for(i in 1:nrow(m2)){   temp[which(rownames(m1)==m2[i,1]),which(colnames(m1)==m2[i,2])] <- false }  m1[temp] <- na  > m1    c1    c2 c3     r2 na    na "v13" r1 "v21" na "v23"

old answer:

m1 <- matrix(c("v11","v21","v12","v22","v13","v23"),nrow=2,ncol=3)  > m1      [,1]  [,2]  [,3]  [1,] "v11" "v12" "v13" [2,] "v21" "v22" "v23"  m2 <- matrix(c(1,1,2,1,3,3),nrow=3,ncol=2)  > m2      [,1] [,2] [1,]    1    1 [2,]    1    3 [3,]    2    3  keep <- paste(paste0(m2[,1],m2[,2]),collapse="|") m1[!grepl(keep,m1)] <- na  > m1      [,1]  [,2] [,3]  [1,] "v11" na   "v13" [2,] na    na   "v23"

or one-liner:

m1[!grepl(paste(paste0(m2[,1],m2[,2]),collapse="|"),m1)] <- na

Comments

Post a Comment

Popular posts from this blog

c# - Send Image in Json : 400 Bad request -

from android trying send image class of data, iis webservice. (c#) the problem 400 bad request . the image being encoded base64 . , placed json rest of class elements. my guess base64 not valid inside json. server not understand it. if set string "" , post accepted fine. so question is, how make base64 valid within json array? ( tried url.encode no success). or how should send image android webservice? gson gson = new gson(); string json = gson.tojson(record); // record has param { string base64photo } how big image? i'm pretty sure surpassing iis json size limit (default 4 mb). check http://geekswithblogs.net/frankw/archive/2008/08/05/how-to-configure-maxjsonlength-in-asp.net-ajax-applications.aspx or http://www.webtrenches.com/post.cfm/iis7-file-upload-size-limits good luck!
Read more

javascript - addthis share facebook and google+ url -

i attempting use addthis create simple url shares whichever current page user on when click share button. of right now, have twitter working. when user clicks, able see url populated in tweet box. when user clicks facebook or google+, url doesn't seem show in share box. <ul class="addthis_toolbox addthis_default_style "> <li><a class="addthis_button_facebook"><img src="/img/facebook-social.png" width="20" height="20" border="0" alt="share" /></a></li> <li><a class="addthis_button_twitter"><img src="/img/twitter-social.png" width="20" height="20" border="0" alt="share" /></a></li> <li><a class="addthis_button_google_plusone_share"><img src="/img/google-social.png" width="20" height="20" border="0" alt="s...
Read more

ios - Show keyboard with UITextField in the input accessory view -

i have buttona , when buttona clicked, want keyboard show uitextfield in inputaccessoryview. there way have keyboard show manually , set inputaccessoryview without having uitextfield initially? thanks. you cannot summon keyboard without object can become first responder. there 2 ways work around: subclass uiview , implement uikeyinput protocol in it. example: in .h file: @interface inputobject : uiview<uikeyinput> @property (nonatomic, copy) nsstring *text; @property (nonatomic, strong) uiview *inputaccessoryview; // must override inputaccessoryview , since it's readonly default @end in .m file, implement protocol: - (bool)canbecomefirstresponder { return yes; } - (bool)hastext { return [self.text length]; } - (void)inserttext:(nsstring *)text { nsstring *selftext = self.text ? self.text : @""; self.text = [selftext stringbyappendingstring:text]; [[nsnotificationcenter defaultcenter] postnotificationname:kinputobjec...
Read more