如何通过行名而不是​​数字索引删除矩阵的行？

Question

I have matrix g :

> g[1:5,1:5]
        rs7510853 rs10154488 rs12159982 rs2844887 rs2844888
NA06985 "CC"      "CC"       "CC"       "CC"      "CC"     
NA06991 "CC"      "CC"       "CC"       "CC"      "CC"     
NA06993 "CC"      "CC"       "CC"       "CC"      "CC"     
NA06994 "CC"      "CC"       "CC"       "CC"      "CC"     
NA07000 "CC"      "CC"       "CC"       "CC"      "CC"     
> rownames(g)[1:2]->remove
> remove
[1] "NA06985" "NA06991"
> g[-remove,]

Error in -remove : invalid argument to unary operator

Is there a simple way to do what I want to do here (remove the ID's referenced in the vector 'remove' from matrix g ?

Note: this is just a model for what I actually want to do, please don't say just do g[-(1:2), ] , I need to be able to remove a whole bunch of rows that I have ID-d.

Answer 1

When working with indexing, you cannot use "negative" character vectors. You can convert to logical with %in%

g[!rownames(g) %in% remove, ]

If you really wanted to use negative-indexing this could be done:

g[-which(rownames(g) %in% remove), ]

... however it has a nasty potential erroneous result that arises when there are not any rownames in the target vector. The result may be no values returned.

Answer 2

You cannot negative index a character vector when indexing. Turn your vector remove into a boolean. I've defined a function

`%notin%` <- function(x,y) !(x %in% y) 

which can then be used as such: g[rownames(g) %notin% remove ,]

Answer 3

我使用“setdiff”如下：

g[setdiff(rownames(g),remove),]