你如何在R中grep字符串的某些部分

Question

我有这样的字符串：

x<-c("Total_Login.P00B.DC1")

或

x<-c("Total_Login..P00B.DC1")

我需要在第一个点（。）之后grep everthing并用短划线替换字符串中的任何其他特殊字符（ - ）

我试过这样的事情

gsub(".*\\.(.*)", "\\1",x)

但是给了我DC1

我需要最终结果：

P00B-DC1

Answer 1

我会在.上拆分，删除第一个元素并粘贴在一起：

paste0(strsplit(x,"\\.+")[[1]][-1],collapse="-")
# [1] "P00B-DC1"

对于字符串向量（来自@ akrun的评论）：

xvec      <- c("Total_Login.P00B.DC1", "Total_Login..P00B.DC1")

mycleaner <- function(x) paste0(strsplit(x,"\\.+")[[1]][-1],collapse="-")
sapply(xvec, mycleaner)
#  Total_Login.P00B.DC1 Total_Login..P00B.DC1 
#            "P00B-DC1"            "P00B-DC1" 

OP无法定义“特殊字符”，但这似乎适用于示例。

Answer 2

试试这个：

x<-c("Total_Login.P00B.DC1", "Total_Login..P00B.DC1")
gsub('.*\\.+(.*\\..*)','\\1',x)

Answer 3

尝试

gsub('[.]', '-', sub('[^.]+\\.+', '', x))
#[1] "P00B-DC1"     "P00B-DC1"     "POOB-DC1-DC2"

数据

x<-c("Total_Login.P00B.DC1", "Total_Login..P00B.DC1", 
           "Total_Login..POOB.DC1.DC2")