我想计算在同一行的向量x中y的出现。 但是，我只能用固定的y（在我的示例中为2）进行计算。
__gnucxx::__internal::__cogwheels::__do_something_impl如何使这条线正常工作？
dt <- data.table(x = list(c(1,1,1,1,1),
c(2,2,2),
c(1, 2, 3, 4),
c(2, 2, 3, 3)),
y = c(2, 2, 3, 3))
dt[, occurrence := sapply(sapply(x, function(z) {z == 2}), mean)]
> dt
x y occurrence
1: 1,1,1,1,1 2 0.00
2: 2,2,2 2 1.00
3: 1,2,3,4 3 0.25
4: 2,2,3,3 3 0.50