代码之家 › 专栏 › 技术社区 › Pryore

替换字符串中除一个以外的所有单词时出现问题

replace regex r

-2

Pryore · 技术社区 · 7 年前

我有一个简单的问题:

我有一个包含数千个值的列,我正试图将其转换为一个二分变量(yes no)。用“No”替换字符串非常简单,因为我要转换的值是一个星号

Data$Complete <- gsub("\\*", "No", Data$Complete)

但是当我试图替换除“no”之外的所有内容时,下面的代码将字符串中的所有内容替换为“yes”。我不明白为什么我要把除了“不”之外的所有东西都替换掉:

Data$Complete <- Data[!Data$Complete %in% c("No"), "Complete"] <- "Yes"

任何指点都将不胜感激。

1 回复 | 直到 7 年前

Artem Alex Seam 7 年前

你可以使用 ifelse 功能和 grepl 提取必要的数据如下:

library(stringi)

# data simulation
set.seed(123)
n <- 1000
data <- data.frame(
  complete = stri_rand_strings(n = n, length = 20, pattern = "[A-Za-z0-9\\*]")
)

# string matching
data$yes_no <- ifelse(grepl("\\*", data$complete), "No", "Yes")
head(data)

输出:

              complete yes_no
1 HmOsw1WtXRxRfZ5tE1Jx    Yes
2 tgdzehXaH8xtgn0TkCJD    Yes
3 7PPM87DSFr1Qn6YC7ktM    Yes
4 e4NGoRoonQkch*SCMbL6     No
5 EfPm5QztsA7eKeJAm4SV    Yes
6 aJTxTtubO8vH2wi7XxZO    Yes

推荐文章

DotFX · RegEx捕获关键字前但括号后的所有内容

1 年前

user66001 · 正则表达式用于匹配有引号和无引号的文本,并且不匹配任何部分

1 年前

perlchamp · 为什么这也匹配?

1 年前

con · Negative Lookaward在perl正则表达式中不起作用

1 年前

Andrus · 如何在sql中查找第二个匹配项

1 年前

iato · 确保正则表达式不从命名材料中的数字中提取

1 年前

vr8ce · 非成对标记中特定字符的正则表达式

1 年前

MARTIN · 交换第一个和最后一个单词,反转所有中间的字符

1 年前

Carsten · 使用最近的搜索模式更改文本块

1 年前

Eric Marceau · Grep:有没有一种特殊的方法可以将“无字符”作为“字符位置”匹配的置换?

1 年前