Extract pierwsze słowo z kolumny i wstawić do nowej kolumny

Question

Mam dataframe poniżej i chce wyodrębnić pierwsze słowo i włożyć ją do nowej kolumny

Dataframe1: 

COL1 
Nick K Jones 
Dave G Barros 
Matt H Smith 

konwertować go do tego:

Dataframe2: 
COL1    COL2 
Nick K Jones  Nick 
Dave G Barros  Dave 
Matt H Smith  Matt 

Dzięki!

Answer 1

Można użyć wyrażenia regularnego ("([A-Za-z]+)" lub "([[:alpha:]]+)" lub "(\\w+)"), aby pobrać pierwsze słowo

Dataframe1$COL2 <- gsub("([A-Za-z]+).*", "\\1", Dataframe1$COL1) 

Answer 2

Funkcja strsplit może być przydatna

Dataframe1$COL2 <- strsplit(Dataframe1$COL1, " ")[[1]][1] 

Następnie można zmienić ostatni ujęty numer do wybierz też inne części z ciągu.

Answer 3

można użyć funkcji słowa() z biblioteki (stringr):

Dataframe1$COL2 <- word(Dataframe2$COL1,1)