Extraire les 2 premiers caractères dans une chaîne

J'ai besoin d'extraire le 1er 2 caractères dans une chaîne pour plus tard créer bin parcelle de distribution.
vecteur:

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

J'ai obtenu ce jour:

substrRight <- function(x, n){
  substr(x, nchar(x)-n, nchar(x))
}

invoquer la fonction

substrRight(x, 1)

Réponse

[1] "79" "84" "89"

Besoin de imprime les 2 derniers caractères ne sont pas la première.

[1] "75" "80" "85"

source d'informationauteur Seb

  1. 25

    Vous pouvez simplement utiliser le substr directement à la fonction de prendre les deux premiers caractères de chaque chaîne: 

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

    Vous pouvez également écrire une fonction simple pour faire du "reverse" sous-chaîne, donnant le "start" et "stop" en supposant que les valeurs de l'indice commence à la fin de la chaîne: 

    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"
  2. 1

    Utilisation 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"
  3. 0

    Voici un stringr solution:

    str_extract(x, "^.{3}")