Skip to main content
4 de 4
melhor visualização
Rafael Cunha
  • 5mil
  • 2
  • 13
  • 29

Dúvida de como mensurar o número de palavras entre duas palavras especificas em uma string no R

Olá, Pessoas!

Eu estou trabalhando em uma função no R que mensure a quantidade de palavras entre duas palavras especificas, estou chamando a função de worDistance, ela funciona da seguinte maneira, você insere dois argumentos, dada uma string t, por exemplo, palavra1 e palavra2 e ela retorna o número de palavras entre a palavra 1 e palavra 2, por exemplo, dado que:

t <- "bom dia posso ajudar nao viu zunkz sabe tava pagar"

worDistance("bom","ajudar") # ela retorna o número 2. 

Denote que a função lê a string t da esquerda para direita, quando eu inverto as ordem das palavras para

worDistance("ajudar","bom")

ela retorna o número 0. Em vez de retornar 2, novamente, como eu posso resolver isso??

Vou colocar a estrutura da função abaixo:

worDistance <- function( palavra1, palavra2 , direcao ) {#

###Legenda
#A função vai retornar "-1" quando uma das palavras inseridas no input não existir na string t
#A função vai retornar "-2" quando ambas as palavras inseridas no input não existir na string t



 if( direcao == 1 ) {##
    
    # 1 = Esquerda para direita
    
    total_palavras <- sapply(strsplit(transcricao, " "), length) 
    
    a <- gsub( paste0('^.*',palavra1,'\\s*|\\s*',palavra2,'.*$'), '', 
    transcricao)
    
    b <- sapply(strsplit(a, " "), length)
    
    if( b == total_palavras ) {
      
      return(-2)
      
    }else if( b == (total_palavras) - 1) {
      
      return(-1)
      
    }else if( b != total_palavras ){
      
      return(b)
      
    }
    
  }##

}#