矩形维恩图

Question

有没有办法在R中绘制下面的维恩图作为正方形而不是圆圈？

venn.plot <- draw.triple.venn(1883,598,2151,218,221,611,95, c("AL", "RL", "R"),scale=TRUE)

Answer 1

draw.triple.venn确实返回“...包含构成图表的网格对象的类gList的对象。除非使用ind = FALSE指定，否则还会在图形设备中显示图表.Grid :: grid.draw可用于在图形设备中绘制gList对象。“ （来自VennDiagram帮助文件），因此通过对该对象的组件进行一些创造性编辑，您可以绘制正方形而不是圆形。

（注意：请删除我不小心写的匿名编辑） 这是做到这一点的方法。不要告诉我的老板我浪费时间挖掘这个黑客。

Rgames> hack.plot[[6]]$x<-unit(c(.25,.75,.75,.25),unit='npc')
Rgames> hack.plot[[6]]$y <-unit(c(.25,.25,.75,.75),unit='npc')

要正确放置正方形，这些坐标应为range(as.numeric(hack.plot[[6]]$x))，依此类推。我相信这三个圆圈位于6,7和8位。