如何用R中的空格划分后的所有字符？

Question

我有一个矢量：

v= c("abc_cdef", "ab_ce.ef") 

我想获得以下矢量：

v=c("abc", "ab") 

我尝试了以下代码，但未成功。

gsub("^._$","",v) 

我应该使用什么正则表达式？

Answer 1

这将有效

gsub("(.*)_.*$","\\1",v)
# [1] "abc" "ab" 

Answer 2

使用strsplit()

的另一个选项

sapply(strsplit(v, '_'), '[', 1) 
[1] "abc" "ab" 

Answer 3

gsub('_.+$', '', v)
# [1] "abc" "ab"  "abc"