如何解决二分图上的交互线颜色
我正在使用昆虫访问者的 plotweb 来创建 3 个不同补丁的二部图，并且我正在尝试将交互颜色与昆虫颜色相匹配。我在网上使用了一个示例，使用 rgb 数字来获得各种颜色的交替，因此每只昆虫的颜色都与其旁边的昆虫不同。尽管代码完全相同，但这对我的第一组数据（参见第一张图片）效果很好，但在第二组数据（参见第二张图片）上效果不佳。例如，现在在第二组数据中，橄榄绿色的 Bombyliid 有 3 条不同颜色的交互线——我希望所有这些交互线都是相同的颜色。我弄乱了我的 cols 函数，但无法弄清楚这是如何/为什么在数据集之间发生变化。我该如何解决这个问题？
aadata %>%
group_by(`Flower.Species`,Patch,`Insect.Taxa`) %>%
summarize(number = n()) -> counts
invm <-spread(counts[,2:4],Insect.Taxa,number,fill = 0)
rownames <- invm$`Patch`
invm <- data.matrix(invm[,2:21])
rownames(invm) <- rownames
cols = rgb(0:6/6,0.8,6:0/6,0.7)
plotweb(invm,col.interaction = cols,col.high = cols,col.low = c("black"),text.high.col = "black",text.low.col = "black",text.rot = 270,adj.low = 1,adj.high = 0.94,y.lim = c(-1,2.9),low.spacing = 0.04,high.spacing = 0.011,high.y = 1.4,low.y = -1.1
)
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
