有效地获取具有R值的列名

Question

我有一个表(Table1)，我需要获取前10列的列名，这些列具有值（不是具有＆＃34; All＆＃34;的列名）以及其余的列名（11结束）

这是在函数内部使用，因此列名称为＆＃34; All＆＃34;变化。但是，需要找到前10列的列名，而不是＃34; All＆＃34;。我想有办法检查列是否有值或者＃34; All＆＃34;字符串。？

是否有一种使用colnames函数

在R中执行此操作的有效方法

感谢。

Table1:

St abb  crp  crp_N plan pln_ab prac prac_N fun scd    prm  lib   count
1  DL   All  All   All  All    All  All    All 09/30  5230 120   2
.
.

Output: 

St, abb, scd

Answer 1

我们可以使用

names(Table1)[1:10][unlist(Table1[, 1:10, with = FALSE][, 
         lapply(.SD, function(x) all(x != "All"))])]

-