从摘要输出中提取值

Question

我运行这段代码，并得到以下输出。

> df$postStrata
[[1]]
[[1]]
  [1] 1 1 2 1 2 1 2 1 2 2 2 1 1 2 1 1 1 1 1 1 2 1 1 1 2 1 1 2 1 1 2 1 2 2 1 1 2 1 2 2 2 1 1 2 2 2 2
 [48] 1 2 1 1 1 1 2 1 1 2 1 1 2 1 2 1 1 1 1 2 2 2 1 1 1 1 2 2 2 2 1 2 1 2 1 2 1 1 1 2 1 1 1 1 2 1 2
 [95] 1 2 2 2 2 1
attr(,"oldweights")
  [1] 0.7894737 0.7894737 1.2790698 0.7894737 1.2790698 0.7894737 1.2790698 0.7894737 1.2790698
 [10] 1.2790698 1.2790698 0.7894737 0.7894737 1.2790698 0.7894737 0.7894737 0.7894737 0.7894737
 [19] 0.7894737 0.7894737 1.2790698 0.7894737 0.7894737 0.7894737 1.2790698 0.7894737 0.7894737
 [28] 1.2790698 0.7894737 0.7894737 1.2790698 0.7894737 1.2790698 1.2790698 0.7894737 0.7894737
 [37] 1.2790698 0.7894737 1.2790698 1.2790698 1.2790698 0.7894737 0.7894737 1.2790698 1.2790698
 [46] 1.2790698 1.2790698 0.7894737 1.2790698 0.7894737 0.7894737 0.7894737 0.7894737 1.2790698
 [55] 0.7894737 0.7894737 1.2790698 0.7894737 0.7894737 1.2790698 0.7894737 1.2790698 0.7894737
 [64] 0.7894737 0.7894737 0.7894737 1.2790698 1.2790698 1.2790698 0.7894737 0.7894737 0.7894737
 [73] 0.7894737 1.2790698 1.2790698 1.2790698 1.2790698 0.7894737 1.2790698 0.7894737 1.2790698
 [82] 0.7894737 1.2790698 0.7894737 0.7894737 0.7894737 1.2790698 0.7894737 0.7894737 0.7894737
 [91] 0.7894737 1.2790698 0.7894737 1.2790698 0.7894737 1.2790698 1.2790698 1.2790698 1.2790698
[100] 0.7894737
attr(,"weights")
  [1] 0.7894737 0.7894737 1.2790698 0.7894737 1.2790698 0.7894737 1.2790698 0.7894737 1.2790698
 [10] 1.2790698 1.2790698 0.7894737 0.7894737 1.2790698 0.7894737 0.7894737 0.7894737 0.7894737
 [19] 0.7894737 0.7894737 1.2790698 0.7894737 0.7894737 0.7894737 1.2790698 0.7894737 0.7894737
 [28] 1.2790698 0.7894737 0.7894737 1.2790698 0.7894737 1.2790698 1.2790698 0.7894737 0.7894737
 [37] 1.2790698 0.7894737 1.2790698 1.2790698 1.2790698 0.7894737 0.7894737 1.2790698 1.2790698
 [46] 1.2790698 1.2790698 0.7894737 1.2790698 0.7894737 0.7894737 0.7894737 0.7894737 1.2790698
 [55] 0.7894737 0.7894737 1.2790698 0.7894737 0.7894737 1.2790698 0.7894737 1.2790698 0.7894737
 [64] 0.7894737 0.7894737 0.7894737 1.2790698 1.2790698 1.2790698 0.7894737 0.7894737 0.7894737
 [73] 0.7894737 1.2790698 1.2790698 1.2790698 1.2790698 0.7894737 1.2790698 0.7894737 1.2790698
 [82] 0.7894737 1.2790698 0.7894737 0.7894737 0.7894737 1.2790698 0.7894737 0.7894737 0.7894737
 [91] 0.7894737 1.2790698 0.7894737 1.2790698 0.7894737 1.2790698 1.2790698 1.2790698 1.2790698
[100] 0.7894737

有什么方法可以提取attr(，“权重”)值吗？是否有将值放入列表的代码？

Answer 1

我们可以提取list元素，然后使用attr

attr(df$postStrata[[1]][[1]], "weights")

如果我们需要从列表的所有元素中提取

lapply(df$postStrata, function(x) attr(x[[1]], "weights"))