从R中列表列的所有列表中删除元素

Question

我在R中有一个数据框。在其中一列中，我存储列表。我需要从此列中包含它的所有列表中删除一个数字。

example <- data.frame(matrix(NA_real_, nrow=10, ncol=1))
colnames(example) <- "col"
x <- list(c(1,2,3,4))
for(y in 1:10) {
  example$col[y] <- x
}

这将生成一个数据帧，其中包含10个长度为4的列表（包含值1,2,3,4）。我想从每个子列表中删除具有特定值（在这种情况下为1）的每个元素。如何以最有效的方式做到这一点？