我正在尝试根据附加到元素的特殊字符对列表进行子集化。我发现了多个结果,但我认为我对如何处理特殊字符以及查找包含特殊字符的元素缺乏了解。我希望得到一个包含' **'的所有元素的结果。在末尾。我感谢任何帮助,如果已经有类似的问题,我很抱歉,我没有找到。关于在对列表进行子集化时处理特殊字符的一般答案也将非常受欢迎。谢谢你的时间。
实施例-代码:
x1 <- c('a**', 'b', 'c**')
x2 <- c('d**', 'b', 'e**')
y <- list(x1,x2)
#Here are a couple of results i tried:
grep('\\**', y, value =TRUE, ignore.case = TRUE)
y[lapply(y, function(x) x[grep("[^\\**]", x),])]
Filter(function(x) !any(grepl("[^\\**]", x)), y)
y[y = "[^\\**]"]
答案 0 :(得分:1)
我们可以将grep
与fixed=TRUE
grep("**", unlist(y), value = TRUE, fixed = TRUE)
#[1] "a**" "c**" "d**" "e**"