Skip to main content
Tweeted twitter.com/StackOverflowPT/status/1063990525383057411
melhor visualização
Fonte Link
Rafael Cunha
  • 5mil
  • 2
  • 13
  • 29

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 worDistanceworDistance, 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)
      
    }
    
  }##

}#

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)
      
    }
    
  }##

}#

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)
      
    }
    
  }##

}#
adicionou 31 caracteres ao conteúdo
Fonte Link
Willian Vieira
  • 3,8mil
  • 8
  • 17

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, palavra1palavra1 e palavra2palavra2 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.

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")

worDistance("ajudar","bom"), ela retorna o número 00. Em vez de retornar 22, 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

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)
      
    }
    
  }##

}#

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)
      
    }
    
  }##

}#

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)
      
    }
    
  }##

}#
adicionou 116 caracteres ao conteúdo
Fonte Link
Jorge Nunes
  • 2,8mil
  • 1
  • 15
  • 38

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 ) {##

 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)
      
    }
    
  }##

}#

}##

}#

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)
  
}

}##

}#

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)
      
    }
    
  }##

}#
Fonte Link
Carregando