R 从列表列表中删除某些元素

我正在处理一个包含数百个随机整数列表的列表对象，格式如下：

assignments <- list(
  as.integer(c(1, 1, 1, 1, 1, 1, 2, 2, 2, 3, 3)),
  as.integer(c(1, 1, 1, 0, 0, 0, 3, 3)),
  as.integer(c(1, 3, 3, 3, 3, 3, 3, 2, 2)),
  as.integer(c(1, 2, 0, 3, 2, 3, 2, 2, 2))
)

[[1]]
 [1] 1 1 1 1 1 1 2 2 2 3 3

[[2]]
 [1] 1 1 1 0 0 0 3 3

[[3]]
[1] 1 3 3 3 3 3 3 2 2

[[4]]
[1] 1 2 0 3 2 3 2 2 2

但是这不起作用。

You's welcome=assignments=lapplyassignments，functiony as.data.tablecounty[y！=0][freq==maxfreq，x]此代码为每个子列表提供最常见的非零整数

lapply(assignments,function(x) x[x!=0])

lapply(assignments,function(x) x[x!=0])