r - 复制过程的结果错误

Question

我对以下过程有疑问:

library(igraph)
k <- cbind(c(.2,.2),c(.2,0))

sbm_centr <- replicate(
  2000,
  sample_sbm(49, pref.matrix = k, block.sizes = c(24, 25)) %>%
    centr_degree(.)$centralization
)

问题是该函数生成一个带有两个参数的结果(除了每个复制的 ID 之外)，因此该过程报告错误:.$centr_degree(.) 错误:3 个参数传递给 ' $' 需要 2"

我尝试用以下表达式保存其中一个参数，但未成功:centr_degree(.)$centralization[1])

但列表只包含 0。预先感谢您的意见。

Answer 1

使用 {} 阻止代码

library(dplyr)
library(igraph)
library(purrr)
sbm_centr <- replicate(
  2000,
  sample_sbm(49, pref.matrix = k, block.sizes = c(24, 25)) %>%
    {centr_degree(.)$centralization}
)

---

或使用 pluck

在管道中提取列表元素

sbm_centr <- replicate(2000,
   sample_sbm(49, pref.matrix = k, block.sizes = c(24, 25)) %>% 
      centr_degree(.) %>% 
      pluck("centralization"))

-输出

> str(sbm_centr)
 num [1:2000] 0.158 0.188 0.128 0.153 0.165 ...