R 矩形维恩图

有没有办法把下面的维恩图画成正方形而不是圆形

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

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')

为了正确放置正方形，这些坐标应该是rangeas.numerichack.plot[[6]]]$x，依此类推。我相信这三个圆都在插槽6、7和8中。

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')

---

为了正确放置正方形，这些坐标应该是rangeas.numerichack.plot[[6]]]$x，依此类推。我相信这三个圆圈位于插槽6、7和8中。

似乎没有现成的解决方案，请参见：1 2似乎没有现成的解决方案，请参见：1 2