我有一个R中的两个矩阵的列表，比如A和B，存储在mylist对象中，其列的名称为“1”，“1”，“10”，“13”，用于第一个矩阵，以及1“，”2“，”11“，第二个。我想提取那些名为“1”的矩阵的列，所以矩阵A的前两列和矩阵B的第一列。我在R中尝试了以下代码：
lapply(mylist, function(x) x[, grep("1",colnames(x))] )
但是得到错误的结果：该命令选择出现“1”的列，因此A矩阵的所有列以及B矩阵的第一列和第三列。我怎样才能得到我想要的结果？任何帮助将不胜感激！