2

Olá, tenho um objeto de strings e quero verificar todas as palavras que aparecem junto com a palavra "conselho". Então digamos que eu tenha:

x <- c("o conselho de saúde é muito importante", 
       "a votação para o conselho estadual de segurança foi apertada", 
       "o conselho municipal de assistência social foi instituído em 1990)

Eu gostaria de criar um novo objetocom a palavra conselho mais as três palavras seguintes, então o resultado seria:

# "conselho de saúde é" ;  "conselho estadual de segurança" ; "conselho municipal de assistência"

Eu não estou tendo sucesso com a regex. O que eu tentei:

stringr::str_extract("blabla conselho Regional de Medicina blabla", "(\bconselho\b\s*(?:\S+\b\s*){0,3})")

#OUTPUT:
#Error: '\s' is an unrecognized escape in character string starting ""(\bconselho\b\s"

Tentativa 2:

str_extract("blabla conselho Regional de Medicina blabla", "(\bconselho\b[[:space:]]*(?:[[:space:]]+\b[[:space:]]*){0,3})")

#OUTPUT.
[1] NA

Alguém pode me ajudar a montar a regex correta? Obrigada =)

3
  • Também tentei : str_extract("blabla conselho Regional de Medicina blabla", "(\\bconselho\\b\\s*(?:\\s+\\b\\s*){0,3})") , e o output foi apenas a palavra "conselho"
    – jvqp
    Commented 5/10/2021 às 13:12
  • 2
    Dentro de strings, o caractere \ deve ser escrito como \\. Aí funciona: ideone.com/T1cEB6
    – hkotsubo
    Commented 5/10/2021 às 13:14
  • Deu certo! Obrigada!!
    – jvqp
    Commented 5/10/2021 às 13:16

2 Respostas 2

3

Esta forma é mais eficiente:

library(stringr)
c("o conselho de saúde é muito importante", 
       "a votação para o conselho estadual de segurança foi apertada", 
       "o conselho municipal de assistência social foi instituído em 1990") |>
   str_extract("conselho\\X+") |>
 word(1,4)
1
  • Acredito que é word(1,4) Commented 7/10/2021 às 9:53
2

Se fizer questão de usar regex

txt=c("o conselho de saúde é muito importante", 
       "a votação para o conselho estadual de segurança foi apertada", 
       "o conselho municipal de assistência social foi instituído em 1990")

stringr::str_extract(txt, "\\bconselho\\b([[:punct:]]?\\s+\\w+){3}")
1
  • Esta solução é menos eficiente, pois tem de adicionar muitas exceções. Exemplo, se a palavra tiver hífen já não funciona.
    – José
    Commented 8/10/2021 às 21:38

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .