使用 grepl 匹配具有一个特定数字的名称

Question

我有一个包含列名和行名的数据，其中包含一个数字从 1 到 100 的字符串。

我正在使用 grepl 来 select 具有特定数字的名称（同时忽略字符串）。假设我有：

a <- matrix(c(1:16), nrow = 4, byrow = TRUE)
colnames(a) <- c("aaa1", "bbb1", "abc11", "ccc100")
rownames(a) <- c("aaa1", "bbb1", "abc11", "ccc100")

给出矩阵a

       aaa1 bbb1 abc11 ccc100
aaa1      1    2     3      4
bbb1      5    6     7      8
abc11     9   10    11     12
ccc100   13   14    15     16

我想 select 只包含“1”的行和列。像这样：

     aaa1 bbb1
aaa1    1    2
bbb1    5    6

但是当我使用时：

a[grepl("1" , rownames(a)) , grepl("1" , colnames(a))]

我又得到了矩阵a。我尝试使用“^1”，但它当然找不到任何正好为 1 的名称。我该怎么做才能解决这个问题？感谢您的帮助。

Answer 1

编辑

正如问题中更新的那样，数字从 1 到 100，我们只想提取恰好为 1 的那些行和列。我们可以从行和列名称中提取整个数字部分，然后仅过滤那些正好等于 1.

library(stringr)
a[str_extract(rownames(a), "[0-9]+") == 1, str_extract(colnames(a), "[0-9]+") == 1]

#     aaa1 bbb1
#aaa1    1    2
#bbb1    5    6

继续 grepl 中的相同逻辑，我们可以更新正则表达式并查找字符串末尾跟有“1”的字符

a[grepl("[A-Za-z]1$", rownames(a)), grepl("[A-Za-z]1$", colnames(a))]

#     aaa1 bbb1
#aaa1    1    2
#bbb1    5    6

原答案

使用“1$”表示以“1”结尾的字符串，然后您可以进行子集化。

a[grepl("1$",rownames(a)), grepl("1$",colnames(a))]

#     aaa1 bbb1
#aaa1    1    2
#bbb1    5    6

相当于

a[endsWith(rownames(a), "1"), endsWith(colnames(a), "1")]

#     aaa1 bbb1
#aaa1    1    2
#bbb1    5    6

Using grepl to match names that have one specific number