벤 다이어그램을 그릴 때 원의 위치를 ​​조정하는 방법

Question

하나의 세트가 다른 세트 안에 완전히 들어있는 두 세트가있는 벤 다이어그램을 플롯하려고합니다. 나는이

library(VennDiagram) 
grid.newpage(); 
venn.plot <- draw.pairwise.venn(area1 =467 ,area2 =273 ,cross.area = 273, 
category = c("Set1", "Set2"),fill = c("darkorange", "dodgerblue1"), 
lty = rep("solid", 2),lwd = c(2,2),col = c("black","black"),cex = 2,cat.cex = 2,cat.pos = c(310, 135), 
cat.dist = 0.09,cat.just = list(c(-1, -1), c(1, 1)), 
ext.pos = 30,ext.dist = -0.05, 
ext.length = 0.85,ext.line.lwd = 2,ext.line.lty = "dashed"); 
grid.draw(venn.plot); 

이 비의 트릭처럼 들릴지 모르지만, 어떻게 두 개의 동심원 대신, 원, 말의 위치를 ​​조정하려면하자 같은 R 패키지 Venndiagram와 다이어그램을 그릴 수 내부 동그라미가 바깥 쪽을 만지기를 원합니까?

와 비슷한 것 this one here. 중복되지 않는 요소를 하나 추가했습니다.

Venndiagram 패키지에서 원의 위치를 ​​조정할 수있는 인수를 찾을 수 없습니다.

Answer 1

당신은 plotrix 이것을 시도 할 수 있습니다 : 하나는 다른 사람을 포함하기 때문에

library(plotrix) 
area1 = 467 
area2 = 273 
r1 = round(sqrt(area1/pi)) 
r2 = round(sqrt(area2/pi)) 
xc = 8 
yc = 8 
plot(0:40,0:40,type="n",xlab="",ylab="",main="Venn Diagram", xaxt='n', yaxt='n') 
draw.circle(xc+r1,yc+r1,r1,border="black", col="orange",lty=1,lwd=1) 
draw.circle(xc+2*r1-r2,yc+r1,r2,border="black", col="steelblue",lty=1,lwd=1) 
text(xc+2*r1-r2,yc+r1, '272', cex=3) 
text(xc+(r1-r2)/2+1,yc+r1, '195', cex=3) 
text(xc+r1,yc+2*r1+7, 'Set1', cex=3) 
text(xc+r1+r2,1, 'Set2', cex=3)