我正在尝试使用函数 gsub 从字符串中删除除 67 之外的所有数字。
例如：
txt <- "A function 147832 for 67cleaning 67 data 6 7"
愿望输出：
txt <- "A function for 67cleaning 67 data"
我试过txt = gsub("[[:digit:]]", "", txt)，但它会删除所有数字。
【问题讨论】：
x="I like apple 67 12 123"，我希望它变成x="I like apple 67"。关于1 2 3 67 3，预期结果为67；关于123673，预期结果是“无”。
它不是超级优雅，但你可以分三步完成：
tmp <- gsub("67", "XX", "A function 147832 for 67cleaning 67 data 6 7")
tmp <- gsub("\\d+", "", tmp)
tmp <- gsub("XX", "67", tmp)
tmp
#"A function for 67cleaning 67 data "
首先将67 的所有实例替换为标记（例如XX），然后删除所有其他剩余数字，最后将67 重新插入。
【讨论】：
你可以这样做
x = unlist(strsplit(txt, split = '\\s+')) # split your string
paste0(x[Reduce(`|`, lapply(c('[A-Za-z]', '67'), grepl, x))], collapse = ' ') # use the list of regular expression to match the required pattern and put them all together
#[1] "A function for 67cleaning 67 data"
【讨论】：
[1] "c(\"A\", \"function\", \"147832\", \"for\", \"67cleaning\", \"67\", \"data\", \"6\", \"7\")"，不知道为什么。