从数据框R中提取特定类型的列和特定命名的列

Question

让我有一个数据框，其中有一些列系数因子类型，并且有一个名为“索引”的列，它不是列。 我想提取列

• 这是典型的
• “索引”列。

例如让

df<-data.frame(a=runif(10),b=as.factor(sample(10)),index=as.numeri(1:10))

所以df是：

         a  b index
0.16187501  5     1
0.75214741  8     2
0.08741729  3     3
0.58871514  2     4
0.18464752  9     5
0.98392420  1     6
0.73771960 10     7
0.97141474  6     8
0.15768011  7     9
0.10171931  4    10

所需的输出是（让它是一个称为df1的数据帧）

DF1：

   b index
   5     1
   8     2
   3     3
   2     4
   9     5
   1     6
  10     7
   6     8
   7     9
   4    10

其中包括因子列和名为“索引”的列。

我用这样的代码

  vars<-apply(df,2,function(x) {(is.factor(x)) || (names(x)=="index")})

  df1<-df[,vars]

但是，此代码不起作用。 如何在R中使用Apply类型函数返回df1？ 我会很高兴为您提供任何帮助。 非常感谢。

Answer 1

您可以这样做：

df[ , sapply(df, is.factor) | grepl("index", names(df))]

我认为您的方法出错了两点：首先， apply将数据框转换为矩阵，该矩阵不将值存储为因子（有关此内容 ，请参见此处 ）。 同样，在矩阵中，每个值都必须具有相同的模式（字符，数字等）。 在这种情况下，所有内容都被强制转换为字符，因此没有任何因素可寻。

其次，在apply （AFAIK）中无法访问列名称，因此names(x)返回NULL而names(x)=="index"返回logical(0) 。