Extraiga los primeros 2 caracteres en un string

Ten en cuenta que en la informática un problema casi siempere suele tener varias soluciones, de igual modo te mostraremos lo más óptimo y mejor.

Solución:

Solo puedes usar el substr directamente para tomar los dos primeros caracteres de cada string:

x <- c("75 to 79", "80 to 84", "85 to 89")
substr(x, start = 1, stop = 2)
# [1] "75" "80" "85"

También podría escribir una función simple para hacer una subcadena "inversa", dando los valores de 'inicio' y 'detención' asumiendo que el índice comienza al final del string:

revSubstr <- function(x, start, stop) 
  x <- strsplit(x, "")
  sapply(x, 
         function(x) paste(rev(rev(x)[start:stop]), collapse = ""), 
         USE.NAMES = FALSE)

revSubstr(x, start = 1, stop = 2)
# [1] "79" "84" "89" 

Aquí está un stringr solución:

stringr::str_extract(x, "^.2")

Devuelve los 2 primeros caracteres de x

Usar gsub...

x <- c("75 to 79", "80 to 84", "85 to 89") 

gsub(" .*$", "", x) # Replace the rest of the string after 1st space with  nothing
[1] "75" "80" "85"

Más adelante puedes encontrar los informes de otros desarrolladores, tú igualmente tienes el poder mostrar el tuyo si lo crees conveniente.

---

---

Utiliza Nuestro Buscador