r - 绘制 2 个图 - 1 个来自 NetworkD3，1 个来自绘图函数

Question

我正在尝试使用 NetworkD3 库将图例添加到 sankey 网络图中，并且由于 NetworkD3 没有图例选项，我正在尝试使用 legend() 函数创建图例，但它不起作用。

这是我尝试过的，但它只提供 Sankey 作为输出。

graphics.off()
par("mar")
par(mar=c(1,1,1,1))
par(mfrow = c(2,1))

sankey_plot <- sankeyNetwork(sinksRight = FALSE, Links = links, Nodes = Nodes, 
                               Source = 'source', Target = 'target', Value = 'value', 
                               NodeID = 'name', LinkGroup = 'group', NodeGroup = 'group',
                               fontSize = 8.6, height = "720px", width = "1080px")
sankey_plot


plot(NULL ,xaxt='n',yaxt='n',bty='n',ylab='',xlab='', xlim=0:1, ylim=0:1)

legend("topleft", legend =c('Sugar maple', 'White ash', 'Black walnut','Red oak', 'Eastern hemlock'), pch=16, pt.cex=3, cex=1.5, bty='n', col = c('orange', 'red', 'green', 'blue', 'purple'))
   
mtext("Species", at=0.2, cex=2) 

标签： rggplot2plotsankey-diagramnetworkd3