Extraire une partie numérique de chaînes de nombres et de caractères mélangés dans R

J'ai beaucoup de chaînes, et qui tendent à avoir le format suivant: Ab_Cd-001234.txt
Je veux le remplacer par 001234. Comment puis-je l'obtenir dans la R?

source d'informationauteur user288609

  1. 16

    À l'aide de gsub ou sub vous pouvez faire ceci :

     gsub('.*-([0-9]+).*','\','Ab_Cd-001234.txt')
"001234"

    vous pouvez utiliser regexpr avec regmatches

    m <- gregexpr('[0-9]+','Ab_Cd-001234.txt')
regmatches('Ab_Cd-001234.txt',m)
"001234"

    MODIFIER les 2 méthodes sont vectorisées et travaille pour un vecteur de chaînes de caractères. 

    x <- c('Ab_Cd-001234.txt','Ab_Cd-001234.txt')
sub('.*-([0-9]+).*','\',x)
"001234" "001234"

 m <- gregexpr('[0-9]+',x)
> regmatches(x,m)
[[1]]
[1] "001234"

[[2]]
[1] "001234"
  2. 19

    La stringr paquet a beaucoup de raccourcis pratiques pour ce genre de travail:

    # input data following @agstudy
data <-  c('Ab_Cd-001234.txt','Ab_Cd-001234.txt')

# load library
library(stringr)

# prepare regular expression
regexp <- "[[:digit:]]+"

# process string
str_extract(data, regexp)

Which gives the desired result:

  [1] "001234" "001234"

    Pour expliquer la regexp un peu:

    [[:digit:]] est un nombre de 0 à 9

    + signifie que l'élément précédent (dans ce cas, un chiffre) sera adapté en une ou plusieurs fois

    Cette page est également très utile pour ce genre de traitement de chaîne: http://en.wikibooks.org/wiki/R_Programming/Text_Processing

  3. 4

    Vous pouvez utiliser genXtract de la qdap paquet. Cela prend à gauche en chaîne de caractères et un droit de chaîne de caractères et extrait les éléments entre.

    library(qdap)
genXtract("Ab_Cd-001234.txt", "-", ".txt")

    Bien que je préfère de beaucoup agstudy de réponse.

    MODIFIER l'Extension de la réponse à la correspondance agstudy:

    x <- c('Ab_Cd-001234.txt','Ab_Cd-001234.txt')
genXtract(x, "-", ".txt")

# $`-  :  .txt1`
# [1] "001234"
# 
# $`-  :  .txt2`
# [1] "001234"
  4. 2

    gsub Supprimer le préfixe et le suffixe:

    gsub(".*-|\\.txt$", "", x)

    package d'outils de Utilisation file_path_sans_ext à partir des outils pour supprimer l'extension et ensuite utiliser sub pour supprimer le préfixe:

    library(tools)
sub(".*-", "", file_path_sans_ext(x))

    strapplyc Extraire les chiffres après et avant dot. Voir gsubfn page d'accueil pour plus d'info:

    library(gsubfn)
strapplyc(x, "-(\\d+)\\.", simplify = TRUE)

    Noter que si l'on souhaite retourner un numérique, nous pourrions utiliser strapply plutôt que strapplyc comme ceci:

    strapply(x, "-(\\d+)\\.", as.numeric, simplify = TRUE)