CODEWITHSUNDEEP
rregex
DrJS
DrJS

Reputation: 125

Find words with at most two vowels

I have made a function to search words which have two vowels together. The function give me the vowels together (for example: ee, ou), but I need the complete word (tree, four).

lt <- c("tree", "four", "hello", "play")

vowel <- function(x) {  
  a<- regexpr(pattern = "[aeiou]{2}", x) 
    regmatches(x, a)
}

vowel(lt)

# [1] "ee" "ou"

Thank you in advance

Upvotes: 3

Views: 201

Answers (4)

akrun
akrun

Reputation: 887501

The regexpr returns -1 if there is no match. Therefore, instead of using regmatches, the index itself can be used to subset if we convert to logical

lt[regexpr("[aeiou]{2}", lt) >0]
[1] "tree" "four"

Upvotes: 0

TarJae
TarJae

Reputation: 79164

Here is solution with stringr:

library(stringr)

lt[str_count(lt, '[^aeiou]') ==2]

[1] "tree" "four"

Upvotes: 1

ljdyer
ljdyer

Reputation: 2086

Another way is to replace

[aeiou]{2}

with

\w*[aeiou]{2}\w*

to include the letters before and after the double vowel in the word.

Upvotes: 1

NelsonGon
NelsonGon

Reputation: 13319

We can simply use grepl which in my opinion is more user friendly.

vowel <- function(x) 
   
 {  
   a<- grepl("[aeiou]{2}", x) 
   x[a]
 }
 vowel(lt)
[1] "tree" "four"

Upvotes: 2

Related Questions