Trích xuất từ ​​đầu tiên từ một cột và chèn vào cột mới

Question

Tôi có một dataframe dưới đây và muốn trích xuất từ ​​đầu tiên và chèn nó vào một cột mới

Dataframe1: 

COL1 
Nick K Jones 
Dave G Barros 
Matt H Smith 

Chuyển đổi nó như thế này:

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

Cảm ơn!

Answer 1

Bạn có thể sử dụng một regex ("([A-Za-z]+)" hoặc "([[:alpha:]]+)" hay "(\\w+)") để lấy chữ đầu tiên

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

Answer 2

Chức năng strsplit có thể hữu ích

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

Sau đó, bạn có thể thay đổi số trong ngoặc vuông cuối cùng chọn các phần khác từ chuỗi quá.

Answer 3

Bạn có thể sử dụng chức năng từ() từ thư viện (stringr):

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