如何在 R(网络工具)中绘制多个数据(桥对象)

How to plot multiple data (bridge-objects) in R (networktools)

我在 R (https://cran.r-project.org/web/packages/networktools/networktools.pdf) 中使用包“networktools”。我创建了三个“桥梁”对象:DataT5_SDQ_network_b、DataT6_SDQ_network_b 和 DataT7_SDQ_network_b。

我已经使用以下代码成功绘制了一个“桥梁”对象:

plot(DataT7_SDQ_network_b, include=c("Bridge Expected Influence (1-step)"), theme_bw=FALSE, zscore=TRUE)

问:如何在同一图中绘制所有三个“桥”对象(带有图例)?

我认为在 networktools 中没有办法做到这一点,但由于绘图是通用的 returns 一个 ggplot 对象,我们可以收集多个绘图并将它们与像这样的传说:

p <- lapply(list(DataT5_SDQ_network_b,
                 DataT6_SDQ_network_b,
                 DataT7_SDQ_network_b), function(x) suppressWarnings(plot(x)))

p <- Map(function(a, b) { a$data$Class <- b; a}, a = p, b = c("T5", "T6", "T7"))

p[[1]]$data <- do.call(rbind, lapply(p, function(x) x$data))

p <- p[[1]] + aes(color = Class, group = Class)

p