Двухсторонний участок в R

Question

Я выполняю анализ двудольных графических сетей, подобный тому, который приведен в следующей ссылке: https://www.pinterest.com/pin/474074298266335483/?lp=true Возможно ли это? Как я могу изменить свой код, чтобы получить его? Большое спасибо всем заранее.

require(bipartite)
TotNonApi <- read.csv("~/Desktop/R/Total Poll NonApi Flowers.csv", header = TRUE, row.names = 1, check.names = FALSE)
View(TotNonApi)
par(font = 3)
plotweb(TotNonApi)
plotweb(TotNonApi, method = "normal", text.rot = 90, arrow = "down.center", col.interaction = "wheat2",  y.lim = c(-1, 2.5), labsize = 1.5)
visweb(TotNonApi)
visweb(TotNonApi, type="diagonal", square="compartment", text="none", frame=TRUE)
visweb(TotNonApi, type="nested", text="compartment")
visweb(TotNonApi, circles=TRUE,  boxes=FALSE,  labsize=1, circle.max=3, text="no")
tab <- networklevel(TotNonApi)
View(tab)
tab2 <- specieslevel(TotNonApi)
View(tab2$`higher level`)
View(tab2$`lower level`)
compart(TotNonApi)
(TotDres <- computeModules(TotNonApi))
plotModuleWeb(TotDres)
nestedcontribution(TotNonApi)
null.t.test(TotNonApi, index = c("generality", "vulnerability", "cluster coefficient", "H2", "ISA", "SA"), nrep = 2, N = 10)
specieslevel(TotNonApi)

TotApi <- read.csv("~/Desktop/R/Total Poll Api Only Flowers.csv", header = TRUE, row.names = 1, check.names = FALSE)
View(TotApi)
par(font = 3)
plotweb(TotApi)
plotweb(TotApi, method = "normal", text.rot = 90, arrow = "down.center", col.interaction = "wheat2",  y.lim = c(-1, 2.5), labsize = 1.5)
visweb(TotApi)
visweb(TotApi, type="diagonal", square="compartment", text="none", frame=TRUE)
visweb(TotApi, type="nested", text="compartment")
visweb(TotApi, circles=TRUE,  boxes=FALSE,  labsize=1, circle.max=3, text="no")
tab <- networklevel(TotApi)
View(tab)
tab2 <- specieslevel(TotApi)
View(tab2$`higher level`)
View(tab2$`lower level`)
compart(TotApi)
(TotDres <- computeModules(TotApi))
plotModuleWeb(TotDres)
nestedcontribution(TotApi)
null.t.test(TotApi, index = c("generality", "vulnerability", "cluster coefficient", "H2", "ISA", "SA"), nrep = 2, N = 10)