按正斜杠或不按任何方式拆分字符串

您可以使用 sub (或 gsub 如果在字符串中多次出现,则直接用下划线替换无或正斜杠(捕获周围的一个字符):

sub("(\\w)(|/)(\\w)", "\\1_\\3", c("CC", "C/C"))
#[1] "C_C" "C_C"

我们可以在每个字符处拆分字符串,省略“/”和 paste 他们在一起。

sapply(strsplit(x, ""), function(v) paste0(v[v!= "/"], collapse = "_"))

#[1] "C_C" "C_C"

数据

x <- c("CC", "C/C")

我们可以使用

lapply(strsplit(v1, "/|"), function(x) x[nzchar(x)])

或者使用regex lookaround

strsplit(v1, "(?<=[^/])(/|)", perl = TRUE)
#[[1]]
#[1] "C" "C"

#[[2]]
#[1] "C" "C"

如果最终输出应为向量,则

gsub("(?<=[^/])(/|)(?=[^/])", "_", v1, perl = TRUE)
#[1] "C_C" "C_C"