正则表达式在破折号之前和之后提取文本（即＆＃39; - ＆＃39;）符号

Question

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

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

第一个正则表达式给我("1", "3", "5")，第二个正则表达式应该给我("2", "4", "6")...

万分感谢

Answer 1

第一场比赛

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"