Я использую пакет «сетевые инструменты» в R (https://cran.r-project.org/web/packages/networktools/networktools.pdf). Я создал три объекта-моста: 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)
В: Как я могу отобразить все три объекта-«моста» на одном графике (с легендой)?
Три объекта моста можно загрузить здесь: drive.google.com/file/d/12Hgq78RjuXXRLplIXJw6SNU4NoZbULcc/… Код, который генерирует объект моста (с использованием сетевых инструментов): DataT5_SDQ_network_b <- bridge(DataT5_SDQ_network, communities=SDQ_communitiesSG, directed=FALSE, nodes = DataT5_SDQ_list$names)





Я не думаю, что есть способ сделать это внутри networktools, но поскольку универсальный сюжет возвращает объект 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
Красивый! 1. Как я могу получить график, показывающий только ожидаемое влияние моста? 2. Как я могу отобразить данные в виде z-показателей?
Я вижу способ сделать это, но это довольно сложно и потребует от вас публикации воспроизводимого примера. Вы можете предоставить один? (то есть данные и код, которые вы использовали для создания мостов)