Auszug numerischen Teil des strings von gemischten zahlen und Zeichen in R

Ich habe eine Menge von Zeichenketten, von denen jede in der Regel das folgende format: Ab_Cd-001234.txt
Ich möchte, um es zu ersetzen mit 001234. Wie kann ich es erreichen, in R?

InformationsquelleAutor der Frage user288609 | 2013-03-16

  1. 19

    Mit gsub oder sub Sie dies tun können :

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

    können Sie regexpr mit regmatches

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

    BEARBEITEN die 2 Methoden sind vektorisiert und arbeitet für einen Vektor von Zeichenketten. 

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

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

[[2]]
[1] "001234"

    InformationsquelleAutor der Antwort agstudy

  2. 22

    Den stringr Paket hat viele praktische shortcuts für diese Art von Arbeit:

    # 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"

    Zu erklären, die regexp ein wenig:

    [[:digit:]] eine Zahl von 0 bis 9

    + bedeutet, dass das vorhergehende Element (in diesem Fall eine Ziffer) wird abgestimmt ein-oder mehrmals

    Diese Seite ist auch sehr nützlich für diese Art von string-Verarbeitung: http://en.wikibooks.org/wiki/R_Programming/Text_Processing

    InformationsquelleAutor der Antwort Ben

  3. 4

    Könnten Sie genXtract von der qdap-Paket. Dies dauert eine Links-Zeichenfolge und eine Rechte Zeichenkette und extrahiert die Elemente zwischen.

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

    Obwohl ich viel lieber agstudy Antwort.

    BEARBEITEN Ausweitung Antwort auf übereinstimmung agstudy:

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

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

    InformationsquelleAutor der Antwort Tyler Rinker

  4. 2

    gsub Entfernen Präfix und suffix:

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

    tools-Paket Verwenden file_path_sans_ext von tools zu entfernen-Erweiterung und verwenden Sie dann sub zu entfernen Präfix:

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

    strapplyc Extrahieren der Ziffern nach - und vor-Punkt. Sehen gsubfn Startseite für mehr info:

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

    Beachten Sie, dass, wenn es gewünscht wird, um wieder eine numerische könnten wir strapply eher als strapplyc wie diese:

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

    InformationsquelleAutor der Antwort G. Grothendieck

Schreibe einen Kommentar