Split ein string-Vektor bei Leerräumen

Ich habe folgenden Vektor:

tmp3 <- c("1500 2", "1500 1", "1510 2", "1510 1", "1520 2", "1520 1", "1530 2", 
"1530 1", "1540 2", "1540 1")

Möchte ich einfach behalten, die zweite Zahl in jedem der Atome, die von diesem Vektor, so würde es Lesen: 

c(2,1,2,1,2,1,2,1,2,1)
  • Kannst du vielleicht auch akzeptieren eine Antwort zu markieren, die Frage als "gelöst"?
InformationsquelleAutor Zak | 2009-11-04
  1. 36

    Wahrscheinlich gibt es ein besserer Weg, aber hier sind zwei Ansätze mit strsplit():

    as.numeric(data.frame(strsplit(tmp3, " "))[2,])
as.numeric(lapply(strsplit(tmp3," "), function(x) x[2]))

    Den als.numeric() nicht notwendig sein, wenn Sie Zeichen verwenden, die...

    • Dies ist eine elegante Lösung. Genau das, was ich suchte. Danke!
    • Ich habe versucht, Ihre Lösung, aber stattdessen mit der Spalte eines data Frames und es funktionierte nicht sofort. Ich möchte hinzufügen, dass für diejenigen Fälle, die Sie brauchen, um Sie in einer Liste. as.numeric(data.frame(strsplit(as.list(df$columnx), " "))[2,])
    InformationsquelleAutor Shane
  2. 21

    Könnte man read.table auf textConnection:

    X <- read.table(textConnection(tmp3))

    dann

    > str(X)
'data.frame':   10 obs. of  2 variables:
 $ V1: int  1500 1500 1510 1510 1520 1520 1530 1530 1540 1540
 $ V2: int  2 1 2 1 2 1 2 1 2 1

    so X$V2 ist, was Sie brauchen.

    InformationsquelleAutor Marek
  3. 11

    Es hängt ein wenig davon ab, wie eng die tatsächlichen Daten übereinstimmt, die Beispiel-Daten, die Sie gegeben haben. Ich Sie sind nur versuchen, alles zu bekommen, nach der Raum, die Sie verwenden können gsub:

    gsub(".+\\s+", "", tmp3)
[1] "2" "1" "2" "1" "2" "1" "2" "1" "2" "1"

    Wenn Sie versuchen, zu implementieren, in der Regel komplizierter als bei "nimm alles nach dem Leerzeichen", müssen Sie ein komplizierter regular expresion.

    • können Sie erklären, dieses...
    • die Funktion gsub wird das ersetzen-regex-matches mit etwas anderem. In diesem Fall verwenden wir die regex - .+\\s+ und ersetzen keine Treffer finden wir mit den leeren string "". Die regex-übersetzt "mit etwas am Anfang, aber es hat am Ende mit einem Platz" (das Leerzeichen ist so geschrieben, wie \\s)
    InformationsquelleAutor SchaunW
  4. 9

    Was ich denke, ist der eleganteste Weg, dies zu tun

    >     res <- sapply(strsplit(tmp3, " "), "[[", 2)

    Wenn Sie es brauchen, um eine ganze Zahl sein

    >     storage.mode(res) <- "integer"
    • Auch res <- as.numeric(sapply(...)) als gut funktioniert; storage.mode ist ein wenig beängstigend
    InformationsquelleAutor ephpostfacto
  5. 5
    substr(x = tmp3, start = 6, stop = 6)

    So lange, wie Sie Ihre strings sind immer gleich lang, dies sollte den trick tun.

    (Und, natürlich, werden Sie nicht haben, um geben Sie die argument-Namen - substr(tmp3, 6, 6) funktioniert ebenfalls sehr gut)

    InformationsquelleAutor Matt Parker
  6. 4

    Dies sollte es tun:

    library(plyr)
ldply(strsplit(tmp3, split = " "))[[2]]

    Wenn Sie einen numerischen Vektor, verwenden Sie

    as.numeric(ldply(strsplit(tmp3, split = " "))[[2]])
    InformationsquelleAutor Paolo
  7. 1

    Weitere option ist scan(). Um den zweiten Wert, den wir verwenden können, eine logische Teilmenge.

    scan(text = tmp3)[c(FALSE, TRUE)]
#  [1] 2 1 2 1 2 1 2 1 2 1
    InformationsquelleAutor Rich Scriven
  8. -1

    Einen einfacheren Weg, um split 1 Spalte in 2 Spalten über Daten.Tabelle 

    require(data.table)  
data_ex = data.table( a = paste( sample(1:3, size=10, replace=TRUE),"-separate", sep="" ))  
data_ex[, number:=  unlist( strsplit(x=a, split="-") )[[1]], by=a]  
data_ex[, word:= unlist( strsplit(x=a, split="-") )[[2]], by=a ]
    InformationsquelleAutor greenbooks
Schreibe einen Kommentar