如何按行名而不是数字索引删除矩阵的行？答案

【问题标题】：How to remove rows of a matrix by row name, rather than numerical index?如何按行名而不是数字索引删除矩阵的行？
【发布时间】：2011-11-26 10:18:32
【问题描述】：

我有矩阵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,]

-remove 中的错误：一元运算符的参数无效

有没有一种简单的方法来做我想做的事情（从矩阵 g 中删除向量“remove”中引用的 ID？

注意：这只是我真正想要做的模型，请不要说只是做g[-(1:2), ]，我需要能够删除我想要的一大堆行有身份证。

【问题讨论】：

标签： r matrix subset rowname

【解决方案1】：

使用索引时，不能使用“负”字符向量。您可以使用 %in%

转换为逻辑

g[!rownames(g) %in% remove, ]  # ! is logical negation

如果您真的想使用负索引，可以这样做：

g[-which(rownames(g) %in% remove), ] #which converts to numeric, so minus sign OK

... 但是，当目标向量中没有任何行名时，它会出现令人讨厌的潜在错误结果。结果可能没有返回值。

【讨论】：

【解决方案2】：

我使用“setdiff”如下：

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

【讨论】：

【解决方案3】：

索引时不能对字符向量进行负索引。将您的向量 remove 转换为布尔值。我已经定义了一个函数

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

然后可以这样使用：g[rownames(g) %notin% remove ,]

【讨论】：

我见过有人将该函数命名为 %!in%，我认为 ?'%in%' 页面演示了构建一个类似的函数，称为 %w/o%。