MAC113 - Introdução à Computação

Aula 05: Manipulação de String:

• Os assuntos de hoje:
  1. string
  2. paste, paste0
  3. typeof
  4. outras manipulações de string

• string:
  • print("Bom Dia")
  • saida: "Bom Dia"
  • Se deseja eliminar " e " na saida:
  • print("Bom Dia", quote=F)
  • "saida : Bom Dia

• variável tipo string:
  • s <- "Bom Dia"
  • print(s)
  • saida: "Bom Dia"
  • print(s, quote=F)
  • saida : Bom Dia

• paste:
  • a <- "mac"
  • b <- "113"
  • print(paste0(a, b))
  • saida: "mac113"
  • print(paste(a, b))
  • saida: "mac 113"
  • c <- paste(a, b)
  • print(c)
  • saida: "mac 113"
  • d <- paste0(a, b)
  • print(d)
  • saida: "mac113"

• opção para separador:
  • a <- "mac"
  • b <- "113"
  • print(paste(a, b, sep="//"))
  • saida: "mac//113"
  • print(paste(a, b, sep="?" ))
  • saida: "mac?113"

• typeof:
  • a <- "mac"
  • b <- "113"
  • c <- paste0(a, b)
  • print(typeof(c))
  • saida: "chacacter"
  • print(paste0("O tipo de ", c, " eh ", typeof(c)))
  • saida: "O tipo de mac113 eh character"
  • x <- 113
  • y <- "113"
  • print(typeof(x))
  • saida: "double"
  • print(typeof(y))
  • saida: "character"

• outra manipulação nchar:
  • função nchar: devolve o número de caracteres num string
  • nchar("abracadabra") (no console)
  • [1] 11
  • nchar("") (no console)
  • [1] 0
  • nchar(" ") (no console)
  • [1] 1

• função substr:
  • formato: substr(texto, inic, fim)
  • A função substr extrai um peraço de texto que começa no inic e termina no fim.
  • Exemplos:
  • substr("abracadabra", 4, 7)
  • [1] "acad"
  • a <- "abracadabra"
  • print(substr(a, 5, 5))
  • saida: "c"
  • print(substr(a, 5, 11))
  • saida: "cadabra"

• Exemplo de função para manipular string:
  • A próxima função conta o número de ocorrência de 1 letra num texto.
  • obs: nchar(letra) deve ser 1.
  • Se nchar(letra) > 1, a função retorna -1

  •              contaLetraEmTexto <-function(letra, texto ){
    		  if(nchar(letra)!=1){
    	            return(-1)
    		  }else{
    		    pos <- 1
    		    cont <- 0
    		    while(pos <=nchar(texto){
                          letraAtual <- substr(texto, pos, pos)
    		      if(letraAtual == letra){		       
    			cont <- cont + 1
    		      }
    		      pos <- pos + 1		       
                        }
                        return(cont)
    		}