r - How do I select values from a list based on character length? -


i working on program follows basic logic:

  1. read 3 csv files, first 2 of contain keywords , last 1 of contains exclusion words.
  2. combine 2 keyword lists 1 thing, capitalizing keywords , removing keywords less 3 characters.
  3. sort , remove duplicate keywords keyword list.
  4. capitalize of words in exclusion list.
  5. remove keywords have match in exclusion list.

it step 2 having trouble with. i've tried quite few solutions nothing working. here code:

# read in individual data sets  set1=read.csv("set1.csv",header=false,sep=",") set2=read.csv("set2.csv",header=false,sep=",") exclude_list=read.csv("exclude.csv",header=false,sep=",")  # create new set aggregate of keyword sets, # capitalizing keywords , excluding keywords  # less 2 characters in length  set_agg=rbind(set1,set2) keywords=set_agg[c("v1")] keywords = as.data.frame(sapply(keywords, toupper))  ??? goes here ???  # sort , remove duplicate keywords keyword list as.data.frame(keywords[order(keywords$v1),]) keywords=unique(keywords)  # modify , capitalize exclusion list  exclude_list=as.data.frame(exclude_list[c("v1")]) exclude_list=as.data.frame(sapply(exclude_list, toupper))     # remove keywords matching exclude list  `%ni%` <- negate(`%in%`)  keywords=subset(keywords, v1 %ni% exclude_list$v1)  return(keywords)

for reference, csv files formatted this:

word1, word2, word3, etc...

you can indexing sapply on length of keywords:

keywords[sapply(keywords[,1], nchar) > 2,]

update here full version little simpler using vectors:

## assuming have keywords , exclude_list stored vectors keywords <- sapply(unique(sort(c(set1, set2))), toupper) keywords <- keywords[nchar(keywords) > 2] keywords <- setdiff(keywords, sapply(exclude_list, toupper))

Comments

Post a Comment

Popular posts from this blog

twig - Using Twigbridge in a Laravel 5.1 Package -

i'm trying create laravel 5.1 package uses twigbridge instead of .php views. can normal .php views display fine, when try make use of .twig templates i'm met error. possible use twigbridge templates when creating views laravel package or pretty stuck blade , php ? edit 1: loading twig template without extending works. it's when start using {% extends 'file' %} error comes out. i error error loading /virtual/laravel/packages/username/mypackage/src/views/sample.twig: template "templates.master" not defined () in "/virtual/laravel/packages/username/mypackage/src/views/sample.twig" @ line 1. my folders username |_ mypackage |_ src |_ controllers - samplecontroller.php |_ views |_ templates - master.twig - sample.twig twig template sample.twig {% extends 'templates.master' %} {% block content %} {{ parent() ...
Read more

jdbc - Not able to establish database connection in eclipse -

i want make new database connection (db2) in eclipse purpose of using jpa. in jpa perspective, in data source explorer view, when try create new db connection, receive following logs when try ping server. org.eclipse.datatools.connectivity.exceptions.dbnotstartexception: no start database command issued. errorcode = -4499, sqlstate = 08001. @ org.eclipse.datatools.enablement.ibm.db2.internal.luw.jdbcluwjdbcconnection.getconnectexception(jdbcluwjdbcconnection.java:74) @ org.eclipse.datatools.connectivity.ui.pingjob.gettestconnectionexception(pingjob.java:81) @ org.eclipse.datatools.connectivity.ui.pingjob.run(pingjob.java:63) @ org.eclipse.core.internal.jobs.worker.run(worker.java:54) caused by: com.ibm.db2.jcc.am.ro: [jcc][t4][2043][11550][4.8.87] exception java.net.connectexception: error opening socket server example.example.com/51.37.93.117 on port 50,000 message: connection timed out: connect. errorcode=-4499, sqlstate=08001 @ com.ibm.db2.jcc.am.gd.a(gd.j...
Read more

Kivy: Swiping (Carousel & ScreenManager) -

i have 2 screens in screenmanager both contains number of buttons in scrollview. idea 1 steps forward (right) clicking button. , step (left) swiping back. trying add carousel implement 1 swipe on second page. have tried: self.root = screenmanager(id = 'screen_manager') main_screen = screen(name = 'main_screen') scroller = scroller() button_text = ['teach', 'move', 'b3', 'b4', 'b5', 'b6', 'b7', 'b8'] text in button_text: scroller.view.add_widget(field(name=text, direction='left', current='teach')) main_screen.add_widget(scroller) self.root.add_widget(main_screen) carousel = carousel(direction='left', id='carousel') teach = screen(name = 'teach') scroller2 = scroller() button_text = ['vocab', 'drills'] text in button_text: scroller2.view.add_widget(field(name=text, direction='right', current='main_screen')) carousel.add_...
Read more