如何从列表中删除一些元素？

Question

假设我有一个包含10个项目的列表。每个项目包括3个项目，我想删除列表中10个项目中的每个项目的第2项。我想用一个非常大的数据集来做。所以我需要一种非常有效的方法。我怎么能这样做？

我的培训档案是here。

Answer 1

简单

test<-list(list(17413624, "item", 4167836), list(17413611, "item", 
    15284), list(17413151, "item", 11266439), list(17413068, 
    "item", 4663903), list(17413056, "item", 694589), list(17413006, 
    "item", 4167836), list(17412951, "item", 4167836), list(17412582, 
    "item", 1972868), list(17412061, "item", 4167836), list(17411835, 
    "item", 4167836))

removed <- lapply(test, `[`, -2)

会工作得很好。