從數據框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) 。