Ann*_*rie 11 grep row r dataframe
我有一个像这样的数据帧:
d <- data.frame(cbind(x=1, y=1:10, z=c("apple","pear","banana","A","B","C","D","E","F","G")), stringsAsFactors = FALSE)
Run Code Online (Sandbox Code Playgroud)
我想从这个数据框中删除一些行,具体取决于列z的内容:
new_d <- d[-grep("D",d$z),]
Run Code Online (Sandbox Code Playgroud)
这很好用; 第7行现已删除:
new_d
x y z
1 1 1 apple
2 1 2 pear
3 1 3 banana
4 1 4 A
5 1 5 B
6 1 6 C
8 1 8 E
9 1 9 F
10 1 10 G
Run Code Online (Sandbox Code Playgroud)
但是,当我使用grep搜索列z中不存在的内容时,它似乎删除了数据帧的所有内容:
new_d <- d[-grep("K",d$z),]
new_d
[1] x y z
<0 rows> (or 0-length row.names)
Run Code Online (Sandbox Code Playgroud)
我想以这种或其他方式搜索和删除行,即使我搜索的字符串不存在.怎么去这个?
GSe*_*See 20
您可以使用TRUE/FALSE子集而不是数字.
grepl就像grep,但它返回一个logical向量.否定与它一起工作.
d[!grepl("K",d$z),]
x y z
1 1 1 apple
2 1 2 pear
3 1 3 banana
4 1 4 A
5 1 5 B
6 1 6 C
7 1 7 D
8 1 8 E
9 1 9 F
10 1 10 G
Run Code Online (Sandbox Code Playgroud)
这是你的问题:
> grep("K",c("apple","pear","banana","A","B","C","D","E","F","G"))
integer(0)
Run Code Online (Sandbox Code Playgroud)
尝试grepl()代替:
d[!grepl("K",d$z),]
Run Code Online (Sandbox Code Playgroud)
这是有效的,因为否定的逻辑向量为每一行都有一个条目:
> grepl("K",d$z)
[1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
> !grepl("K",d$z)
[1] TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
Run Code Online (Sandbox Code Playgroud)