[英]Using regex pattern in gsub r
Hello I hve a df such as您好,我有一个 df,例如
COL1
BLOC1.1_3_10-355(+)Sp_3
BLOC2.1_10-355(-)SSp_4
BLOC3.1_10-355(+)SP_32
BLOC1_3_10-355(+)SP4_2
How can I find a regex that can replace the _
here > _[Number]-[Number](
by如何找到可以替换
_
here > _[Number]-[Number](
的正则表达式
:[Number]-[Number](
Here I should get在这里我应该得到
COL1
BLOC1.1_3:10-355(+)Sp_3
BLOC2.1:10-355(-)SSp_4
BLOC3.1:10-355(+)SP_32
BLOC1_3:10-355(+)SP4_2
I tried: gsub("_[0-9]-[0-9](",":[0-9]-[0-9](",df$COL1)
我试过:
gsub("_[0-9]-[0-9](",":[0-9]-[0-9](",df$COL1)
COL1 <- c("BLOC1.1_3_10-355(+)Sp_3",
"BLOC2.1_10-355(-)SSp_4",
"BLOC3.1_10-355(+)SP_32",
"BLOC1_3_10-355(+)SP4_2")
gsub( "(.*[0-9]+)(_)([0-9]+-.*)", "\\1:\\3", COL1)
[1] "BLOC1.1_3:10-355(+)Sp_3" "BLOC2.1:10-355(-)SSp_4" "BLOC3.1:10-355(+)SP_32"
[4] "BLOC1_3:10-355(+)SP4_2"
You can use您可以使用
_([0-9]+-[0-9]+\()
And replace with :
and capture group 1.并替换为
:
并捕获组 1。
COL1 <- c("BLOC1.1_3_10-355(+)Sp_3", "BLOC2.1_10-355(-)SSp_4", "BLOC3.1_10-355(+)SP_32", "BLOC1_3_10-355(+)SP4_2")
gsub("_([0-9]+-[0-9]+\\()", ":\\1", COL1)
Output Output
[1] "BLOC1.1_3:10-355(+)Sp_3" "BLOC2.1:10-355(-)SSp_4"
[3] "BLOC3.1:10-355(+)SP_32" "BLOC1_3:10-355(+)SP4_2"
A solution using string splitting:使用字符串拆分的解决方案:
output <- sapply(COL1, function(x) {
parts <- strsplit(x, "_(?=\\d+-)", perl=TRUE)
paste(parts[[1]][1], parts[[1]][2], sep=":")
})
names(output) <- c(1:4)
output
1 2 3
"BLOC1.1_3:10-355(+)Sp_3" "BLOC2.1:10-355(-)SSp_4" "BLOC3.1:10-355(+)SP_32"
4
"BLOC1_3:10-355(+)SP4_2"
Data:数据:
COL1 <- c("BLOC1.1_3_10-355(+)Sp_3", "BLOC2.1_10-355(-)SSp_4",
"BLOC3.1_10-355(+)SP_32", "BLOC1_3_10-355(+)SP4_2")
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.