替换R

Question

输入数据：

> dat0
                  name_ko
1           BLA_BLA,_BLIM
2 CLO_CLO,_SPITCH_SPLOTCH
3           BAD_BOY,_GOOD  
4      GOOD_BOY,_BAD_GIRL  

既定的输出：

> dat1
              name_ok
1           BLA, BLIM
2 CLO, SPITCH SPLOTCH
3       BAD BOY, GOOD
4  GOOD BOY, BAD GIRL

data：

name_ko <- c(
  "BLA_BLA,_BLIM",
  "CLO_CLO,_SPITCH_SPLOTCH",
  "BAD_BOY,_GOOD",
  "GOOD_BOY,_BAD_GIRL")
dat0 <- data.frame(name_ko)

您可以尝试gsub("_"," ",stringr::str_replace_all(name_ko, "(\\b\\w+)_(\\1)", "\\1"))