r - Find length by subsetting or using %in% -


i have data.frame "df":

df    id.number         names 1        102  program id 1 2        102  program id 1 3         11  program id 1 4         11  program id 1 5       1293  program id 1 6       1293  program id 1 7        132  program id 1 8        143  program id 1 9        143  program id 1 10       143  program id 1 11       143 program id 22 12       143 program id 22 13       143 program id 22 14       155 program id 22 15       155 program id 22 16      1552 program id 22 17      1553 program id 22

and vector: name_1 <- "program id 1"

now find unique length of "id.number" "program id 1" , matching vector "name_1". can find unique length of "id.number" "program id 1" with

length(unique(id.number[names=="program id 1"]))

but find unique length matching vector column "names" in data.frame "df".

so need (and like) use that:

length(unique(subset(....)

or 

length(unique(subset .... %in% names_1

and output should unique length/(number) in column "id.number" , not data table nor list.

desired output: number, , in case is: 5 result of code length(unique(id.number[names=="program id 1"])).

as stated in comments, need wrap code worked on vectors with(df, ...) statement:

with(df, length(unique(id.number[names=="program id 1"])))

or generalize cases when name_1 contains several names:

with(df, length(unique(id.number[names%in%name_1])))

Comments

Post a Comment

Popular posts from this blog

searchKeyword not working in AngularJS filter -

i writing app using angularjs on front end. want search through table word/field; 1 search box everything. according article here: http://hello-angularjs.appspot.com/searchtable can use filter: searchkeyword this. this code, , not working expected. <label>search: <input ng-model="searchkeyword"></label> <table ng-repeat="post in posts | orderby: sort | filter: searchkeyword"> <tr> <td> {{index(post)}} </td> <td> {{post.title}} </td> <td> {{post.author}} </td> <td> {{post.content}} </td> <td> {{post.date | date: "d/m/yyyy"}} </td> </tr> </table> what should do? thank you try this: controller $scope.posts = [ {title:'title one', author:'author one', content: 'content one'}, {title:'title two', author:'author two', content: 'cont...
Read more

sequelize.js - Sequelize: sort by enum cases -

i have model ( article ) field (the name type ) of type enum('source', 'translated') , return 1 article ordered type field. source articles should returned before translated articles. like: article.findone(order: [ { type: [ 'source', 'translated' ] } ]); unfortunately there appears no built-in solution sorting enums. instead have sort by case , couldn't find documentation on how sequelize. what conventional approach here? sorting case hard in sequelize, sort field (the second answer in linked post) should possible: order: sequelize.fn('field', sequelize.col('type'), 'source', 'translated') it's supported mysql far know though
Read more

user interface - how to replace an ongoing process of image capture from another process call over the same ImageLabel in python's GUI TKinter -

i trying use following code create interactive gui changes color-space(hsv, rbg, grayscale etc) on event of button click. display opencv video in tkinter using multiprocessing being new python having problems multiprocessing , attempts on making gui change it's color space on button clicks hangs entire system. on it's implementation highly appreciated. thankyou. below code: import cv2 pil import image,imagetk import tkinter tk import numpy np multiprocessing import process , queue def quit_it(root,process): root.destroy() process.terminate() def black_andwhite(root,process): process.terminate p=process(target=capture_image, args=(5,queue, )) p.start() root.after(0, func=lambda: update_all(root, image_label, queue)) def update_image(image_label, queue): frame = queue.get() = image.fromarray(frame) b = imagetk.photoimage(image=a) image_label.configure(image=b) image_label._image_cache = b root.update() def update_all(root...
Read more