Ersten Eintrag aus string split

Ich habe eine Spalte people$food hat Einträge wie chocolate oder apple-orange-strawberry.

Will ich split people$food durch - und erhalten Sie den ersten Eintrag aus der split.

In python, die Lösung wäre food.split('-')[0], aber ich kann nicht finden, ein äquivalent für R.

InformationsquelleAutor Pistol Pete | 2015-11-13

21

Wenn Sie brauchen, um zu extrahieren, die die erste (oder nth) Eintrag von jedem split verwenden:
```
word <- c('apple-orange-strawberry','chocolate')

sapply(strsplit(word,"-"), `[`, 1)
#[1] "apple"     "chocolate"
```
Oder schneller und mehr ausdrücklich vorgesehen:
```
vapply(strsplit(word,"-"), `[`, 1, FUN.VALUE=character(1))
#[1] "apple"     "chocolate"
```
Beiden bits des Codes gut zu bewältigen, die mit der Auswahl, welcher Wert in der split-Liste, und befassen sich mit Fällen, die außerhalb des Bereichs:
```
vapply(strsplit(word,"-"), `[`, 2, FUN.VALUE=character(1))
#[1] "orange" NA  
```
InformationsquelleAutor thelatemail
13

Beispielsweise
```
word <- 'apple-orange-strawberry'

strsplit(word, "-")[[1]][1]
[1] "apple"
```
oder, was dasselbe ist
```
unlist(strsplit(word, "-"))[1].
```
Im wesentlichen die Idee ist, dass split gibt eine Liste als Ergebnis, deren Elemente zugegriffen werden muss, entweder durch schneiden (der erste Fall) oder durch unlisting (die letztere).

Wenn Sie möchten, dass die Anwendung der Methode auf eine gesamte Spalte:
```
first.word <- function(my.string){
    unlist(strsplit(my.string, "-"))[1]
}

words <- c('apple-orange-strawberry', 'orange-juice')

R: sapply(words, first.word)
apple-orange-strawberry            orange-juice 
                "apple"                "orange"
```
strsplit ist vektorisiert, so gibt es keine Notwendigkeit zu sapply es über jeden einzelnen Elements im vector. Siehe meine Antwort unten.
Stimmt, ich war mir nicht bewusst, danke!

InformationsquelleAutor gented
4

Ich würde sub() statt. Da möchte man das erste "Wort" vor dem split, wir können einfach entfernen Sie alles nach dem ersten - - und das ist das, was übrig bleibt.
```
sub("-.*", "", people$food)
```
Hier ist ein Beispiel -
```
x <- c("apple", "banana-raspberry-cherry", "orange-berry", "tomato-apple")
sub("-.*", "", x)
# [1] "apple"  "banana" "orange" "tomato"
```
Sonst, wenn Sie verwenden möchten strsplit() Sie können rund bis die ersten Elemente mit vapply()
```
vapply(strsplit(x, "-", fixed = TRUE), "[", "", 1)
# [1] "apple"  "banana" "orange" "tomato"
```
InformationsquelleAutor Rich Scriven

Ich würde vorschlagen, mit head eher als [ im R.

word <- c('apple-orange-strawberry','chocolate')
sapply(strsplit(word, "-"), head, 1)
# [1] "apple"     "chocolate"

InformationsquelleAutor Ven Yao

dplyr/magrittr Ansatz:

library(magrittr)
library(dplyr)

word = c('apple-orange-strawberry', 'chocolate')

strsplit(word, "-") %>% sapply(extract2, 1)
# [1] "apple"     "chocolate"

InformationsquelleAutor Ömer An

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.