Iterar sobre caracteres (strsplit)

Parte de la sección Fundamentos del Journey de R de Coddy — lección 65 de 78.

¿Qué pasa si necesitas procesar cada carácter de una cadena individualmente? A diferencia de los vectores, no puedes recorrer directamente los caracteres de una cadena en R. La función strsplit() resuelve esto dividiendo una cadena en un vector de caracteres.

La función strsplit() toma dos argumentos: la cadena a dividir y el separador. Para dividir en caracteres individuales, use una cadena vacía "" como separador:

word <- "hello"
chars <- strsplit(word, "")[[1]]
print(chars)

Salida:

[1] "h" "e" "l" "l" "o"

Observa el [[1]] al final. Esto se debe a que strsplit() devuelve una lista, y necesitamos extraer el primer elemento para obtener nuestro vector de caracteres. Una vez que tengas los caracteres como un vector, puedes iterar sobre ellos utilizando las técnicas que ya has aprendido:

word <- "R"
chars <- strsplit(word, "")[[1]]
for (char in chars) {
  print(char)
}

Salida:

[1] "R"

Esta técnica es esencial para tareas como contar caracteres específicos, invertir cadenas o validar la entrada carácter por carácter.

Desafío

Fácil

Recibirás una sola línea de entrada que contiene una palabra (por ejemplo, programming).

Usando strsplit() para dividir la cadena en caracteres individuales:

Divide la palabra de entrada en un vector de caracteres
Recorre cada carácter en el vector
Cuenta cuántas veces aparece la letra "a" en la palabra (sensible a mayúsculas y minúsculas)
Imprime cada carácter en su propia línea usando print()
Después del bucle, imprime el conteo usando cat() con el formato: Count of 'a': X seguido de una nueva línea

Por ejemplo, si la entrada es:

banana

La salida debería ser:

[1] "b"
[1] "a"
[1] "n"
[1] "a"
[1] "n"
[1] "a"
Count of 'a': 3

Explicación: La palabra "banana" se divide en los caracteres c("b", "a", "n", "a", "n", "a"). Se imprime cada carácter y la letra "a" aparece 3 veces.

Hoja de referencia

Para dividir una cadena en caracteres individuales, utiliza strsplit() con una cadena vacía "" como separador:

word <- "hello"
chars <- strsplit(word, "")[[1]]
print(chars)

Resultado:

[1] "h" "e" "l" "l" "o"

El [[1]] extrae el primer elemento de la lista devuelta por strsplit(), proporcionándote un vector de caracteres.

Luego puedes iterar a través de los caracteres:

word <- "R"
chars <- strsplit(word, "")[[1]]
for (char in chars) {
  print(char)
}

Pruébalo tú mismo

# Leer la entrada
con <- file("stdin", "r")
word <- suppressWarnings(readLines(con, n = 1))

# Inicializar el contador para la letra 'a'
count_a <- 0

# TODO: Escribe tu código a continuación
# 1. Usa strsplit() para dividir la palabra en caracteres individuales
# 2. Recorre cada carácter
# 3. Imprime cada carácter usando print()
# 4. Cuenta cuántas veces aparece la 'a'

# Mostrar el recuento de 'a'
cat("Count of 'a': ", count_a, "\n", sep = "")