Split Spalte in mehrere Spalten R

Habe ich einen Daten-frame-Spalte, die ich brauche, aufgeteilt in 3 separate Spalte. Sieht wie folgt aus:

I:500-600
I:700-900
II:200-250

Ich möchte, aufgeteilt in die folgenden 3 Spalten:

V1 V2 V3
I 500 600
I 700 900
II 200 250

Dies erweist sich als etwas schwieriger, als ich gehofft hatte. Jede Hilfe würde geschätzt werden.

InformationsquelleAutor user3272284 | 2014-06-07
  1. 6

    Andere Lösung mit str_match von der stringr Paket:

    x <- c("I:500-600", "I:700-900", "II:200-250")
library(stringr)
as.data.frame(str_match(x, "^(.*):(.*)-(.*)$")[,-1])
##   V1  V2  V3
## 1  I 500 600
## 2  I 700 900
## 3 II 200 250

    In den oben genannten regulären Ausdruck entsprechen wir 3 Teilstrings: von Anfang an : von : zu -, und von - zu Ende. Jede übereinstimmenden Teilstring wird als eine separate Spalte in der resultierenden Objekt.

    InformationsquelleAutor gagolews
  2. 6

    Können Sie strsplit mit einer ODER-argument, das splitting mit : oder - dadurch erhalten Sie eine Liste, die Sie weiter verarbeiten kann.

    > test <- c('I:500-600', 'I:700-900', 'II:200-250')
> do.call(rbind.data.frame, strsplit(test, ":|-"))
  c..I....I....II.. c..500....700....200.. c..600....900....250..
1                 I                    500                    600
2                 I                    700                    900
3                II                    200                    250

    Sind die Namen wichtig

    > as.data.frame(do.call(rbind, strsplit(test, ":|-")))
  V1  V2  V3
1  I 500 600
2  I 700 900
3 II 200 250
    InformationsquelleAutor jdharrison
  3. 5

    Andere Optionen sind extract aus tidyr

    library(tidyr)
extract(df1, V1, into=c('V1','V2', 'V3'),
            '([^:]*):([0-9]*)-([0-9]*)', convert=TRUE)
#  V1  V2  V3
#1  I 500 600
#2  I 700 900
#3 II 200 250

    Oder tstrsplit aus data.table.

    library(data.table)#v1.9.5+
setDT(df1)[, tstrsplit(V1, '[:-]', type.convert=TRUE)]
#   V1  V2  V3
#1:  I 500 600
#2:  I 700 900
#3: II 200 250

    HINWEIS: Beide Optionen Argumente zu konvertieren, die Klasse der Ausgabespalten

    Daten

    df1 <- structure(list(V1 = c("I:500-600", "I:700-900", "II:200-250")), 
 .Names = "V1", class = "data.frame", row.names = c(NA, -3L))
    InformationsquelleAutor akrun
  4. 4

    Ich würde empfehlen cSplit aus meiner "splitstackshape" - Paket.

    Die syntax ist ziemlich einfach: cSplit(yourInputDataFrame, yourSplittingColumn, theDelimiters).

    Hier ist ein Beispiel auf einer vector. Sie würde überspringen der data.table Teil, wenn Sie bereits eine data.frame oder eine data.table.

    library(splitstackshape)
cSplit(data.table(x), "x", ":|-", fixed = FALSE)
#    x_1 x_2 x_3
# 1:   I 500 600
# 2:   I 700 900
# 3:  II 200 250

    Standardmäßig, es läuft auch type.convert:

    str(.Last.value)
# Classes ‘data.table’ and 'data.frame':    3 obs. of  3 variables:
#  $ x_1: Factor w/2 levels "I","II": 1 1 2
#  $ x_2: int  500 700 200
#  $ x_3: int  600 900 250
#  - attr(*, ".internal.selfref")=<externalptr>
    InformationsquelleAutor A5C1D2H2I1M1N2O1R2T1
Schreibe einen Kommentar