R setdiff() by regex -


is possible customize setdiff using regular expressions see in 1 vector , not another? example:

x <- c("1\t119\t120\t1\t119\t120\tabc\tdef\t0", "2\t558\t559\t2\t558\t559\tghi\tjkl\t0", "3\t139\t141\t3\t139\t141\tmno\tpqr\t0", "3\t139\t143\t3\t139\t143\tstu\tvwx\t0")  [1] "1\t119\t120\t1\t119\t120\tabc\tdef\t0" [2] "2\t558\t559\t2\t558\t559\tghi\tjkl\t0"        [3] "3\t139\t141\t3\t139\t141\tmno\tpqr\t0"    [4] "3\t139\t143\t3\t139\t143\tstu\tvwx\t0"     y <- c("1\t119\t120\t1\t109\t120\tabc\tdef\t0", "2\t558\t559\t2\t548\t559\tghi\tjkl\t0", "3\t139\t141\t3\t129\t141\tmno\tpqr\t0", "3\t139\t143\t3\t129\t143\tstu\tvwx\t0", "4\t157\t158\t4\t147\t158\txwx\tyty\t0", "5\t158\t159\t5\t148\t159\tphp\twzw\t0")  [1] "1\t119\t120\t1\t109\t120\tabc\tdef\t0" [2] "2\t558\t559\t2\t548\t559\tghi\tjkl\t0"        [3] "3\t139\t141\t3\t129\t141\tmno\tpqr\t0"    [4] "3\t139\t143\t3\t129\t143\tstu\tvwx\t0"    [5] "4\t157\t158\t4\t147\t158\txwx\tyty\t0"   [6] "5\t158\t159\t5\t148\t159\tphp\twzw\t0"

i want able show that:

[5] "4\t157\t158\t4\t147\t158\txwx\tyty\t0"   [6] "5\t158\t159\t5\t148\t159\tphp\twzw\t0"

are new because 4\t157\t158 , 4\t157\t158 unique y. doesn't work: 

> setdiff(y,x) [1] "1\t119\t120\t1\t109\t120\tabc\tdef\t0" "2\t558\t559\t2\t548\t559\tghi\tjkl\t0" [3] "3\t139\t141\t3\t129\t141\tmno\tpqr\t0" "3\t139\t143\t3\t129\t143\tstu\tvwx\t0" [5] "4\t157\t158\t4\t147\t158\txwx\tyty\t0" "5\t158\t159\t5\t148\t159\tphp\twzw\t0"

because column 5 different in both x , y. want setdiff based on first 3 columns.

a simple example of setdiff can found here: how tell in 1 vector , not another?

one way put x , y data.frames , anti-join. i'll use data.table since find more natural.

library(data.table) xdt <- as.data.table(do.call("rbind", strsplit(x, split = "\t"))) ydt <- as.data.table(do.call("rbind", strsplit(y, split = "\t")))

now anti-join (a "setdiff" data.frames/data.tables):

ydt[!xdt, on = paste0("v", 1:3)] #    v1  v2  v3 v4  v5  v6  v7  v8 v9 # 1:  4 157 158  4 147 158 xwx yty  0 # 2:  5 158 159  5 148 159 php wzw  0

you row index (thanks @frank suggested improvement/simplification):

> ydt[!xdt, = true, on = paste0("v", 1:3)]

or extract directly y:

> y[ydt[!xdt, = true, on = paste0("v", 1:3)]] # [1] "4\t157\t158\t4\t147\t158\txwx\tyty\t0" "5\t158\t159\t5\t148\t159\tphp\twzw\t0"

Comments

Post a Comment

Popular posts from this blog

sublimetext3 - what keyboard shortcut is to comment/uncomment for this script tag in sublime -

Image
i have script tag in code, keyboard shortcut comment/uncomment script tag in sublime. after selecting script open , close tag. <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script> i pressing ctrl + shift + / , getting this /*<script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script>*/ also pressed ctrl + / , got this // <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> // </script> instead of <!-- <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script> --> script open , close tag in 2 lines not in 1 line , not have spaces too. for mac,high light lines want comment. hold 'command , / ' commented. for windows: high line or select lines ,then hold ctrl + / if not work: ...
Read more

post - imageshack API cURL -

i credentials correct. when send image through form this:(action="http://api.imageshack.com/v2/images/"). working fine when tried send $ch = curl_init($url); failed. code: enter code here <form action="" method="post" enctype="multipart/form-data"> select image upload: <input type="file" name="file" id="file" multiple> <input type="text" name="auth_token" id="auth_token" value="xxxxxxxxxxxxxxxx"> <input type="text" name="api_key" id="api_key" value="xxxxxxxxxxxxxxx"> <input type="submit" value="upload image" > </form> $url = ' http://api.imageshack.com/v2/images/ '; $temp = $_files["file"]['tmp_name']; echo $temp."<br>" ; $ch = curl_init($url); curl_setopt($ch, curlopt_post, true); curl...
Read more

dataset - MPAndroidchart returning no chart Data available -

i having problems mpandroidchart. adding temperature , humidity data chart, displays "no chart data available". here can see bug is? super grateful! //create data //set size of data int size = list.size(); if (size > 24){ size = 24;} //create lists form temp , hum arraylist<entry> temps = new arraylist<entry>(); arraylist<entry> hums = new arraylist<entry>(); //fill list temp values (int = 0; < size; i++){ entry value = new entry(math.round(list.get(list.size()-size + i).temp), (size-i)); temps.add(value); } //fill list hum values (int = 0; < size; i++){ entry value = new entry(math.round(list.get(list.size()-size + i).hum), (size-i)); hums.add(value); } ...
Read more