r - 使用 sapply 忽略列表中的缺失元素

Question

我在数据框中有一个列表（在本例中为df$candpct），并且想从列表中提取第一个和第二个元素并将它们放入单独的向量中。

这是数据框的初始结构：

> head(df)
  juris                         candpct
1   101              0.752491, 0.247509
2   102 0.4856056, 0.2850754, 0.1845157
3   103                               1
4   104                               1

我看过这个答案，它向我展示了如何有效地提取第一个元素：

> df$first_place <- sapply(df$candpct,"[[",1)

> head(df)
      juris                         candpct first_place
    1   101              0.752491, 0.247509    0.752491
    2   102 0.4856056, 0.2850754, 0.1845157   0.4856056
    3   103                               1           1
    4   104                               1           1

但是，如果我尝试运行另一行来提取第二个元素，则会出现错误，因为并非所有行都在第二个位置有一个元素。

> df$second_place <- sapply(df$candpct,"[[",2)
Error in FUN(X[[3L]], ...) : subscript out of bounds

理想情况下，如果缺少第二个元素，我希望它填充相应的行second_place。NA0

我确信有多种方法可以解决这个问题，但是我没有很多使用列表的经验，所以我在开始时遇到了很多麻烦。

在此先感谢您的帮助。

Answer 1

只是跟进我的评论：

l <- list(a = 1,b = 1:2,c = 1:3)
> sapply(l,'[',2)
 a  b  c 
NA  2  2