从R中列表列的所有列表中删除特定数字

Question

我在存储列表的数据框中有一列。下面是一个示例:

           col
1   9, 8, 3, 7
2   8, 8, 8, 5
3   1, 8, 10, 4
4   3, 6, 1, 6
5   9, 9, 10, 4
6   8, 8, 9, 2
7   6, 10, 4, 7
8   6, 1, 5, 9
9   4, 7, 5, 10
10  7, 9, 2, 5

这是我用来生成上述示例的代码:

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] <- list(c(c(sample(1:10,1)),c(sample(1:10,1)),c(sample(1:10,1)),c(sample(1:10,1))))
}

我想从我的数据框的这一列中的所有这些列表中删除所有出现的数字 9，以获得如下内容:

           col
1   8, 3, 7
2   8, 8, 8, 5
3   1, 8, 10, 4
4   3, 6, 1, 6
5   10, 4
6   8, 8, 2
7   6, 10, 4, 7
8   6, 1, 5
9   4, 7, 5, 10
10  7, 2, 5

我目前正在尝试做这样的事情来解决这个问题:

lapply(example, `[<-`, , "col", function(x) ifelse(x==1, NULL, 1))

我不断收到以下错误:

Error in lapply(example, `[<-`, , "col", function(x) ifelse(x == 1, NULL,  : 
  incorrect number of subscripts on matrix

如何解决此错误并解决我的问题？还有其他方法可以解决这个问题吗？

Answer 1

数据

set.seed(123) # make sure to set.seed with random draws
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] <- list(c(c(sample(1:10,1)),c(sample(1:10,1)),c(sample(1:10,1)),c(sample(1:10,1))))
}

example
            col
1    3, 8, 5, 9
2   10, 1, 6, 9
3   6, 5, 10, 5
4    7, 6, 2, 9
5   3, 1, 4, 10
6   9, 7, 7, 10
7    7, 8, 6, 6
8  3, 2, 10, 10
9    7, 8, 1, 5
10   8, 3, 4, 3

解决方案:

library(purrr)
example$col <- map(example$col, ~.x[.x != 9])
example

            col
1       3, 8, 5
2      10, 1, 6
3   6, 5, 10, 5
4       7, 6, 2
5   3, 1, 4, 10
6      7, 7, 10
7    7, 8, 6, 6
8  3, 2, 10, 10
9    7, 8, 1, 5
10   8, 3, 4, 3