使用grepl过滤特定列范围内的列名

我有一个df，其中包含如下所示的连名:

[1] "lab_id"               "weeks"                "group"      
[4] "level"                "id_row"               "id"                  
[7] "number"               "tube"                 "dp"              
[10] "time"                "label"                "age"                 
[13] "gender"              "wtspike_ab1"         "wtrbd_ab1"          
[16] "wts1_ab1"            "wts2_ab1"             "wtntd_ab2"          
[19] "wtn_ab2"             "alphaspike_ab2"       "alpharbd_ab2"       
[22] "betaspike_ab2"       "betarbd_ab2"          "gammaspike_ab2"     

我的目标是通过列名过滤这个df，使用以下方法:

test1 <- test[, test <- grepl('wtspike|wtrbd|wts1|wts2|wtntd|wtn', colnames(test))]

这会过滤掉与模式不匹配的colnames个，这很好.然而，正在go 掉元数据列1:14，所以我try 使用类似的东西来避免在列1:14中执行该操作.

filtered_test <- test[, 1:14(test) & grepl('wtspike|wtrbd|wts1|wts2|wtntd|wtn', colnames(test))]

这给出了以下错误:

Error: attempt to apply non-function

我的问题是，在不取列1:14的情况下，我可以使用什么替代方法来执行相同的操作.

• 做手术是不是更好的 Select ？
• 我的台词出了什么问题，让我犯了那个错误？