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

我有一个列名和行名的数据,其字符串的数字从1到100.

我使用grepl来选择具有特定数字的名称(忽略字符串).说我有:

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

我想选择包含"1"的行和列,但没有别的.像这样:

     aaa1 bbb1
aaa1    1    2
bbb1    5    6 

但是当我使用时:

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

我a再次获得矩阵.我尝试使用"^ 1",但它当然没有找到任何正确的名称1.我该怎么做才能解决这个问题？我感谢任何帮助.