在可以出现零次或多次的字符之后截断 R 中字符串的末尾

我有以下数据：

temp<-c("AIR BAGS:FRONTAL" ,"SERVICE BRAKES HYDRAULIC:ANTILOCK",
    "PARKING BRAKE:CONVENTIONAL",
    "SEATS:FRONT ASSEMBLY:POWER ADJUST",
    "POWER TRAIN:AUTOMATIC TRANSMISSION",
    "SUSPENSION",
    "ENGINE AND ENGINE COOLING:ENGINE",
    "SERVICE BRAKES HYDRAULIC:ANTILOCK",
    "SUSPENSION:FRONT",
    "ENGINE AND ENGINE COOLING:ENGINE",
    "VISIBILITY:WINDSHIELD WIPER/WASHER:LINKAGES")

我想创建一个新向量，在存在“：”的情况下仅保留第一个“：”之前的文本，在不存在“：”时保留整个单词。

我尝试过使用：

temp=data.frame(matrix(unlist(str_split(temp,pattern=":",n=2)), 
+                        ncol=2, byrow=TRUE))

但在没有“：”的情况下不起作用

我知道这个问题与以下问题非常相似：从R中的某个字符截断字符串，其中使用：

sub("^[^.]*", "", x)

但我对正则表达式不太熟悉，并且一直在努力扭转该示例以仅保留字符串的开头。

您可以使用简单的正则表达式来解决此问题：

sub("(.*?):.*", "\\1", x)
 [1] "AIR BAGS"                  "SERVICE BRAKES HYDRAULIC"  "PARKING BRAKE"             "SEATS"                    
 [5] "POWER TRAIN"               "SUSPENSION"                "ENGINE AND ENGINE COOLING" "SERVICE BRAKES HYDRAULIC" 
 [9] "SUSPENSION"                "ENGINE AND ENGINE COOLING" "VISIBILITY"     

正则表达式如何工作：

• "(.*?):.*"查找重复的任意字符集.*但修改它?不要贪心。后面应该跟一个冒号，然后是任何字符（重复）
• 用括号内找到的位替换整个字符串 -"\\1"

需要理解的是，默认情况下任何正则表达式匹配都是贪婪的。通过将其修改为非贪婪，第一个模式匹配不能包含冒号，因为括号后面的第一个字符是冒号。冒号后面的正则表达式恢复为默认值，即贪婪。