如何调节维恩图圆圈的大小，谢谢

fanshijie7157

大家好！希望利用venn.diagram来绘制两组数据的维恩图，两组数据的数量差异比较大，如下面的两个文件中的数据，通过R处理读进两个文件，绘制其维恩图，所得到的diff2的圈要大于diff1的圈，但是我希望是两个圈是一样大的，而不是随着数据量的大小而变化，所使用的代码如下，请问哪个参数可以实现此目的，谢谢帮助！
diff1_down.txt原数据为：
a
b
c
d
diff2_down.txt原数据为：
c
d
e
f
g
h
u
t
原代码：
library(VennDiagram)
control<-read.table("diff1_down.txt",sep="\t",header=T)
controlID<-control[,1]
prot<-read.table("diff2_down.txt",sep="\t",header=T)
protID<-prot[,1]
venn.plot <- venn.diagram(
x = list(
"14d" = controlID,
"28d" = protID
),
filename = 'diff_down.tiff',
output = TRUE,
height = 800,
width = 800,
resolution = 300,
compression = 'lzw',
units = 'px',
lwd = c(1,6),
lty = 'blank',
fill = c('yellow', 'purple'),
cex = 0.8,
size=1,
fontface = "bold",
fontfamily = "sans",
cat.cex = 0.8,
cat.fontface = "bold",
cat.default.pos = "outer",
ext.text=F,
cat.fontfamily = "sans"
);

libingfei

这个函数的本质是，计算各组元素的组合数量，之后使用draw.pairwise.venn进行绘制。等价于调用：

#下面的函数画出的图和你给出的方法是一样的
venn.plot <- draw.pairwise.venn(
  area1 = 4,
  area2 = 8,
  cross.area = 2,
  category = c("14dy", "28dy"),
  fill = c("blue", "red"),
  lty = "blank",
  cex = 2,
  cat.cex = 2,
);

目前我没有发现，该函数中有独立修改两圆比例关系的参数，或者两圆内数值label的参数存在：

建议一：图形与数值分开绘制

若是您仅仅想表示数据间相交关系。建议将cex项设为0，area1与area2值设为相等的量。
这样就会不现实图形内部数值，之后您可以用单独添加您需要的文本。

建议二：修改draw.pairwise.venn
问题可转化为draw.pairwise.venn是否有修改半径的方法。经过一定的研究，我认为，对于这个函数修改是较复杂的。盲目修改导致很多数据信息损失。若是不理解这类图形面积计算方法，不要轻易下手。

综上，我没有较好的方法

fanshijie7157

谢谢您的回复！