如何检测数据框列中含2个斜杠的字符串并替换为指定值

嘿，我来帮你搞定这个需求！你要找的是color2列里包含超过2种颜色的条目（也就是带两个及以上斜杠的字符串，毕竟每多一个斜杠就多一种颜色嘛），然后把这些条目换成"2"，具体可以这么做：

第一步：先找出符合条件的条目 #

你之前用grepl("/", col2$color2)只能判断有没有斜杠，但要找有至少两个斜杠的，有两种简单方法：

方法1：用正则表达式直接匹配

写个正则来抓带两个及以上斜杠的字符串：

# 得到一个逻辑向量，标记哪些条目符合条件
has_more_than_two_colors <- grepl("(/.*){2,}", col2$color2)

简单解释下：(/.*){2,}的意思是，匹配“斜杠+任意字符”这个组合至少2次，说白了就是字符串里至少有两个斜杠。

方法2：统计斜杠数量（更直观）

用stringr包的str_count函数数每个字符串里的斜杠个数，然后判断是不是≥2：

library(stringr)
has_more_than_two_colors <- str_count(col2$color2, "/") >= 2

这种方法看着更明白，新手也容易理解～

第二步：把符合条件的条目替换成"2" #

拿到标记后，用ifelse就能轻松替换：

# 基础R的写法，直接修改原数据框
col2$color2 <- ifelse(has_more_than_two_colors, "2", col2$color2)

如果你平时习惯用tidyverse的dplyr，也可以这么写，代码更流畅：

library(dplyr)
library(stringr)

col2 <- col2 %>%
  mutate(color2 = ifelse(str_count(color2, "/") >= 2, "2", color2))

跑完之后，你的color2列就会变成你想要的样子：

color2
1  white
2 black/red
3  yellow
4   pink
5      2

另外，如果你想省一步，不用单独检测，直接用gsub一步替换也行：

col2$color2 <- gsub(".*(/.*){2,}.*", "2", col2$color2)

这个正则会直接把所有带至少两个斜杠的字符串换成"2"，其他的保持原样，也很方便～

内容的提问来源于stack exchange，提问作者Lara19