请教高手：用R画下面的图形，怎样最简单？

楚韵荆风 发表于 2012-6-24 09:37
我也正是想怎么解决公共部分的问题

你可以把你的程序写成一个函数就方便以后使用了。

第二个图可以看看vennDiagram这个包

受大家启发，要不把颜色拿掉怎么样？


require(plotrix)
plot(1, xlim = c(0, 5), ylim = c(0, 5), type = "n", asp = 1, axes=NA,)
draw.circle(1,2,1.5,nv=100,border='black',col=NA,lty=1,lwd=1)
draw.circle(3,2,1.5,nv=100,border='black',col=NA,lty=1,lwd=1)
arrows(1,3,.8,4)
arrows(2,3,2,4)
arrows(3,3,3.2,4)
text(c(.8,2,3.2),c(4.2,4.2,4.2),labels=c('A','AB','B'))

roach 发表于 2012-6-24 10:39
第二个图可以看看vennDiagram这个包

好像也没有方便的哟，这个命令也很复杂

没注意楼上这位的意见，确实一条命令就搞定了，真是high-resolution

require(VennDiagram)
venn.plot=draw.pairwise.venn(
        area1 = 100,
        area2 = 100,
        cross.area = 30,
        fill = c("blue", "red"),
      lty='blank',
        category=c('A','B'),
        cat.cex = 2,
        cat.pos = c(340, 14),
        cat.dist = 0.09,
        )

而且比较好看

singph 发表于 2012-6-24 20:50
没注意楼上这位的意见，确实一条命令就搞定了，真是high-resolution

require(VennDiagram)

呵呵，不错，我刚开始也尝试只用两个area1和area2，但是不知道加cross.area = 30，cat.cex = 2,，就没整出来，以后还得多多学习请教啊

楚韵荆风 发表于 2012-6-24 22:40
呵呵，不错，我刚开始也尝试只用两个area1和area2，但是不知道加cross.area = 30，cat.cex = 2,，就没整出 ...