R 正则表达式提取破折号（即'；-'；）符号前后的文本

我需要一些R代码来从破折号符号之前的字符向量中提取文本。例如，如果我有一个像这样的向量：

vec <- ("1-2", "3-4", "5-6")

vec第一次匹配

gsub( "(.*)-(.*)", "\\1",  c( "1234-5678", "1234-5678") )
# [1] "1234" "1234"

gsub( "(.*)-(.*)", "\\1",  c("1-2", "3-4", "5-6"))
# [1] "1" "3" "5"

第二场比赛

gsub( "(.*)-(.*)", "\\2",  c( "1234-5678", "1234-5678") )
# [1] "5678" "5678"

gsub( "(.*)-(.*)", "\\2",  c("1-2", "3-4", "5-6"))
# [1] "2" "4" "6"