Cuente el número de ocurrencias de cierto carácter en la string en R

En este artículo, discutiremos cómo contar la cantidad de ocurrencias de un determinado carácter en String en el lenguaje de programación R.

Método 1: usar el paquete stringR

El paquete stringR en R se usa para realizar manipulaciones de strings. Debe instalarse explícitamente en el espacio de trabajo para acceder a sus métodos y rutinas. 

install.packages("stringr")

El paquete stringr proporciona un método str_count() que se usa para contar el número de ocurrencias de un determinado patrón especificado como argumento de la función. El patrón puede ser un solo carácter o un grupo de caracteres. Cualquier instancia que coincida con la expresión da como resultado el incremento del conteo. Este método también se puede invocar sobre un vector de strings, y se devuelve un vector de recuento individual que contiene recuentos individuales del número de coincidencias de patrones encontradas. Sin embargo, este método solo se considera aproximado a la coincidencia de expresiones regulares. En caso de que no se encuentren coincidencias, se devuelve 0. 

Sintaxis: str_count(str, patrón = “”)

Parámetros: 

• str – La string para contar las ocurrencias de
• patrón – el patrón para hacer coincidir

Ejemplo 1:

library(stringr)
  
# declaring string
str1 = "$geeks%for!geeks%"
  
# declaring character to find
ch1 = "a"
print("Count for character a")
str_count(str1,ch1)
  
ch2 = "%"
print("Count for character %")
str_count(str1,ch2)

Producción

[1] "Count for character a" 
[1] 0 
[1] "Count for character %" 
[1] 2

Ejemplo 2:

library(stringr)
  
# declaring string
str = c("$geeks%for!geeks%","cs^e%portal",
        "le%..e3oten","joinnow3")
print ("Original vector")
print (str)
  
# declaring character to find
ch2 = "%"
print("Count for character %")
str_count(str,ch2)

Producción

[1] "Original vector"
[1] "$geeks%for!geeks%" "cs^e%portal" "le%..e3oten" "joinnow3"
[1] "Count for character %"
[1] 2 1 1 0

Método 2: Usar el método regmatches() 

Este enfoque usa una variedad de métodos disponibles en base R para calcular el número de ocurrencias de un carácter específico en R. El método gregexpr() se usa para devolver una lista de sublistas que coinciden con un patrón específico de la lista de argumentos de la función. En este caso, la coincidencia de patrones utilizada distingue entre mayúsculas y minúsculas. 

Sintaxis:

gregexpr(patrón, texto)

A esto le sigue la aplicación del método regmatches() en R, que se usa para extraer y luego reemplazar la lista de substrings coincidentes devueltas por el método gregexpr(). El primer argumento es el vector original y el segundo argumento es el objeto devuelto como resultado del método anterior. Luego se aplica el método lengths() para devolver las longitudes individuales de todos los elementos del vector de argumento. 

Sintaxis:

longitudes (x)

Ejemplo 1:

# declaring string
str1 = "$geeks%for!geeks%"
  
# declaring character to find
ch1 = "a"
print("Count for character a")
lengths(regmatches(str1, gregexpr(ch1, str1)))
  
ch2 = "%"
print("Count for character %")
lengths(regmatches(str1, gregexpr(ch2, str1)))

Producción

[1] "Count for character a"
[1] 0
[1] "Count for character %"
[1] 2

Ejemplo 2:

# declaring string
str = c("$geeks%for!geeks%","cs^e%portal","le%..e3oten","joinnow3")
print ("Original vector")
print (str)
  
# declaring character to find
ch2 = "%"
print("Count for character %")
lengths(regmatches(str, gregexpr(ch2, str)))

Producción

[1] "Original vector"
[1] "$geeks%for!geeks%" "cs^e%portal" "le%..e3oten" "joinnow3"
[1] "Count for character %"
[1] 2 1 1 0