我try 清理一些文本，并想从字符串中删除以下文本
googletag.cmd.push(函数(){ googletag. show(' div-gpt-ad-1513202928332- 3 '); });
例如如果
x="123 googletag.cmd.push(function() { googletag.display('div-gpt-ad-1513202928332-3'); }); 456"
然后
gsub("googletag.cmd.push(function() { googletag.display('div-gpt-ad-1513202928332-3'); });, ", x)
所需输出为[1] 123456
谢谢你
您可以使用以下模式.
x <- "123 googletag.cmd.push(function() { googletag.display('div-gpt-ad-1513202928332-3'); }); 456"
gsub("^(\\d+).*?(\\d+)$", "\\1\\2", x)
# [1] "123456"
我们保留开头和结尾的数字组(组1和组2)，并丢弃中间的所有内容.我们在两者之间使用非贪婪regex来确保捕获两组中的所有数字.
用一个例子来判断有点困难，但如果总是字符串开头和结尾的数字，那么就不需要regex了.您可以在空间上拆分并获取第一个和最后一个元素:
strsplit(x, " ", fixed = TRUE) |>
sapply(\(m) paste0(head(m, 1), tail(m, 1)))
# [1] "123456"