R内の列を分割する

Question

私のデータフレームには、半構造化されたデータが列にあります。 「|」私が前に最初の単語だけを抽出したいこのdataframe$col1から

df 
col1 
a|b|c 
a b1|b|c 
a & b2|b|c 3 

。

私はこの

df$col2 <- unlist(strsplit(as.character(df$a),"[|]"))[[1]][1] 

を使用してみましたが、結果はすべての行の「A」の同じ値を持っていました。 これはどうしてこれを処理するのですか？

おかげ

Answer 1

我々はあなたが唯一の最初のリストの場所を求めているだけの言葉

library(stringr) 
str_extract(df$col1, "[[:alnum:]]+(?=\\|)") 
#[1] "a" "b1" "b2" 

Answer 2

を抽出したい場合は最初の|

sub("[|].*", "", df$col1) 
#[1] "a"  "a b1" "a & b2" 

前の文字を抽出する必要がある場合最初のリストオブジェクトのRのリサイクルルールのため、文字は列の各行に対して繰り返されます。

t <- c("a|junk", "a b|junk", "a b1|junk") 
unlist(strsplit(as.character(t),"[|]"))[[1]][1] 
[1] "a" 

カラム分割の場合、私はsapply（）と組み合わせてstrsplit（）を使用します。これはHadley WickhamがすでにSOに投稿していたものでした。

df$col2 <- sapply(strsplit(as.character(df$a),"[|]"), "[", 1) 

https://stackoverflow.com/a/1355660/1146646