时间戳

首页 > 解决方案 > 如何按 CLASSES 删除列

r - 如何按 CLASSES 删除列

问题描述

我有以下内容data.frame：

data_1 <- structure(list(Line = structure(1:4, .Label = c("K1", "K2", "K3", 
"K4"), class = "factor"), A = c(4L, 1L, -1L, 2L), B = c(3L, -2L, 
-1L, 4L), C = c(-1L, 1L, 2L, 5L), D = c(2L, -5L, 3L, -7L), E = c(4L, 
1L, 4L, 9L)), class = "data.frame", row.names = c(NA, -4L))

我想要删除integer列。我尝试：

rapply(object = data_1, classes = 'integer', how = 'list', f = function(x) {
  x <- NULL
})

和

lapply(X = data_1, FUN = function(x) {
  Filter(f = is.integer, x = x) <- NULL
})

但不起作用。

我还需要为列表执行此操作：

list_1 <- list(data_1 = structure(list(Line = structure(1:4, .Label = c("K1", 
"K2", "K3", "K4"), class = "factor"), A = c(4L, 1L, -1L, 2L), 
B = c(3L, -2L, -1L, 4L), C = c(-1L, 1L, 2L, 5L), D = c(2L, 
-5L, 3L, -7L), E = c(4L, 1L, 4L, 9L)), class = "data.frame", row.names = c(NA, 
-4L)), data_2 = structure(list(Line = structure(1:4, .Label = c("K1", 
"K2", "K3", "K4"), class = "factor"), A = c(4L, 1L, -1L, 2L), 
B = c(3L, -2L, -1L, 4L), C = c(-1L, 1L, 2L, 5L), D = c(2L, 
-5L, 3L, -7L), E = c(4L, 1L, 4L, 9L)), class = "data.frame", row.names = c(NA, 
-4L)), data_3 = structure(list(Line = structure(1:4, .Label = c("K1", 
"K2", "K3", "K4"), class = "factor"), A = c(4L, 1L, -1L, 2L), 
B = c(3L, -2L, -1L, 4L), C = c(-1L, 1L, 2L, 5L), D = c(2L, 
-5L, 3L, -7L), E = c(4L, 1L, 4L, 9L)), class = "data.frame", row.names = c(NA, 
-4L)))

我尝试：

rapply(object = list_1, classes = 'integer', how = 'list', f = function(x) {
  rapply(x, rm(x))
})

lapply(X = list_1, FUN = function(x) {
  lapply(X = Filter(is.integer, x), rm(x))
})

但是，也行不通。

期望输出：

  Line
1   K1
2   K2
3   K3
4   K4

我需要一个R base仅包含而不是附加包（带有dplyr和您的_if功能）的解决方案。

标签： rlistdataframe

解决方案

这是一个 R 基础解决方案，使用lapply：

myfun <- function(df){
  idx <- sapply(seq_len(ncol(df)), function(x) class(df[,x])) != "integer"

  df[, idx]
}

lapply(list_1, myfun)

推荐阅读