dataframe - match a sentence with a sentence in R? -


i have 2 data frame occupation , data. want match each occupation in data occupation , assign coressponding class adding column in occupation dataframe. 

occupation <- c("i civil engineer human being", "graphic designer late", "architect profession", "sales manager bank", "love profession of professor", "na")  occupation <- data.frame(occupation)  data <- data.frame(class = c("engineers","designer","artist","designer","poetry""banker , prof"), occupation = c("civil engineer", "graphic designer", "painter","poetry","architect(prof)", "sales manager bank"))

i want output this

 occupation                             class     civil engineer human being        engineers     painter  architect poetry              artists     graphic designer late              designers     architect painter profession        architect     sales manager bank                     banker , prof     love profession of professor        na       na                                   na

i tried responding anything

occupation$value <- sapply(data$occupation, grepl, x = occupation)

i don't know how complex data is, useful low complex strings. use agrep function allow set tolerance parameter can match no-equal strings:

occupation <- data.frame(occupation = c("i civil engineer human being", "graphic designer late", "architect profession", "sales manager bank"),                           stringsasfactors = false) data <- data.frame(class = c("engineers","designer","architect","banker , prof"),                     occupation = c("civil engineer", "graphic designer", "architect(prof)", "sales manager bank"),                    stringsasfactors = false)  occupation$value <- sapply(occupation$occupation, function(x) {     match.class <- sapply(data$class, function(y) agrep(y, x, max.distance = 0.2))     data$class[which(match.class == 1)]   } )

if rise max.distance can detect last text previos strings too.

                       occupation            value 1 civil engineer human being   civil engineer 2       graphic designer late graphic designer 3         architect profession  architect(prof) 4              sales manager bank

a second option match every word, case 'i civil engineer human being' words 'i' , 'am' match everything.

occupation$value <- sapply(occupation$occupation, function(x) {     match.class <- sapply(data$class, function(y) {       any(sapply(strsplit(x, ' ')[[1]], function(z)         any(agrep(z, y, max.distance = 0.2))))     })     data$class[which(match.class)]   } )

so result ...

                       occupation                                                                 value 1 civil engineer human being civil engineer, graphic designer, architect(prof), sales manager bank 2       graphic designer late                                                      graphic designer 3         architect profession                                                       architect(prof) 4              sales manager bank                                                    sales manager bank

here thelink when can download code


Comments

Post a Comment

Popular posts from this blog

Command prompt result in label. Python 2.7 -

i want put result(output) of shell command label. command works, label shows "0", however, in command prompt, result shown correctly, need showed in label. doing ubuntu. myg1 = button(root, text="rodyti informacija", command=lambda: gauti()) myg1.pack(side=bottom) def gauti(): imti = tekstas.get("1.0", "end-1c") info = subprocess.call("id '{imti}' ".format(imti=imti), shell=true) w = label(root, text= info) w.pack(side = bottom) subprocess.call() returns exit code of process created (in case 0 success). if want text output of process, should instead call subprocess.check_output() .
Read more

javascript - How do I use URL parameters to change link href on page? -

i change href value of link using url parameters. example: default <a id="dlink" href="link-1">link</a> but, when user goes https://url.com/?dlink=link-2 it swaps out link new link <a id="dlink" href="link-2">link</a> first need value url. if you're not using javascript framework can create function using jquery. please check get url parameter jquery or how query string values in js it. after that, element "a" id , set value there. $("#dlink").attr("href", hreffromparam);
Read more

amazon web services - AWS Route53 Trying To Get Site To Resolve To www -

so have domain nameservers pointed aws route 53. site hosted on ec2 instance , reachable resolves site.com, if input www.site.com. i'm curious how site resolve www.site.com. have under route53 domains hosted zone 2 additional record sets outside of ns , soa: a site.com ec2 elastic ip cname www.site.com ec2 public dns i can reach site using both site.com , www.site.com, resolve site.com. there way make if enter either, resolves www.site.com? at first, both should record set. a site.com ec2 elastic ip www.site.com ec2 elastic ip and need redirect setting in web server (nginx, apache, ..) following. (source: how redirect www non-www nginx on centos 7 ) redirect non-www www if want redirect users plain, non-www domain www domain, add server block: server { server_name example.com; return 301 $scheme://www.example.com$request_uri; } save , exit. configures nginx redirect requests "example.com" "www.example.com". not...
Read more