删除列表内数据框中的列

我根据 A 列中的因子水平，从数据框中创建了一个列表。在列表中，我想删除该列。我的脑子里在说“lapply”，但没有别的意思：P

$A
ID Test
A   1
A   1

$B
 ID Test
 B   1
 B   3
 B   5

进入这个

$A
Test
 1
 1

$B
Test
 1
 3
 5

假设你的列表被称为myList，这样的事情应该有效：

lapply(myList, function(x) { x["ID"] <- NULL; x })

Update

对于更通用的解决方案，您还可以使用如下所示的方法：

# Sample data
myList <- list(A = data.frame(ID = c("A", "A"), 
                              Test = c(1, 1), 
                              Value = 1:2), 
               B = data.frame(ID = c("B", "B", "B"), 
                              Test = c(1, 3, 5), 
                              Value = 1:3))
# Keep just the "ID" and "Value" columns
lapply(myList, function(x) x[(names(x) %in% c("ID", "Value"))])
# Drop the "ID" and "Value" columns
lapply(myList, function(x) x[!(names(x) %in% c("ID", "Value"))])