我运行这段代码,得到以下输出。
> 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(,“ weights”)值。有没有将这些值放入列表的代码?
答案 0 :(得分:1)
我们可以提取list
元素,然后使用attr
attr(df$postStrata[[1]][[1]], "weights")
如果我们需要从列表的所有元素中提取
lapply(df$postStrata, function(x) attr(x[[1]], "weights"))