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

我看了this answer，它向我展示了如何有效地提取第一个元素：

> 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或NA填充0中的相应行。

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

提前感谢您的帮助。

Answer 1

跟进我的评论：

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

用sapply忽略列表中缺少的元素

1 个答案: