Разделить столбец в R

Question

В моем кадре данных у меня есть некоторые полуструктурированные данные в столбце.

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

из этого dataframe$col1 Я хочу, чтобы извлечь только первое слово, прежде чем «|».

Я попытался с помощью этого

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

но результат имел такое же значение «а» по всем строкам. Почему это и как с этим справиться?

Благодаря

Answer 1

Если нужно извлечь символы перед первым |

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

Если мы хотим извлечь только слова

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

Answer 2

Вы только призывающую первый список место первого объекта списка. Из-за правила повторного использования R этот символ повторяется для каждой строки в столбце.

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

Для столбца расщепления, я хотел бы использовать strsplit() в сочетании с sapply(). Это было то, о чем Хэдли Уикхем уже писал.

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

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