r - R/VennDiagram 中集合的手动排序

Question

我正在使用 VennDiagram 来说明不同客户组之间的重叠 - 总体上和特定子分割市场。我遇到的问题是，VennDiagram 似乎自动将输出中的圆圈从最大到最小排序。在我创建的两个图表中，两个种群的相对大小正在翻转，因此在输出中图表的种群/颜色是相反的。我想把这些并排放在一个文档中，人口顺序的翻转让并排比较有点困惑。

每个示例代码都在下面——有没有办法手动强制输出中的集合排序，以便人口按相同的顺序排序？

谢谢 -

venn.plot <- venn.diagram(
x = list(
"AD" = 1:703814,
"WM" = 672279:1086933
),
height = 4000 ,
width = 4000 ,
units = 'px',
filename = "H:\\AD_vs_WM_Total.tiff",
scaled = TRUE,
ext.text = TRUE,
lwd = 1, 
ext.line.lwd = 1,
ext.dist = -0.15,
ext.length = 0.9,
ext.pos = -4,
fill = c("cornflowerblue", "darkorchid1"),
cex = 1.5,
cat.cex = 2,
cat.col = c("black", "black"),
cat.pos = c(120,300) ,
rotation.degree = 45,
main = "AD vs. WM",
sub = "Total Populations",
main.cex = 2,
sub.cex = 1.5
);

venn.plot <- venn.diagram(
x = list(
"AD" = 1:183727,
"WM" = 173073:383052
),
height = 4000 ,
width = 4000 ,
units = 'px',
filename = "H:\\AD_vs_WM_Target.tiff",
scaled = TRUE,
ext.text = TRUE,
lwd = 1, 
ext.line.lwd = 1,
ext.dist = -0.15,
ext.length = 0.9,
ext.pos = -4,
fill = c("cornflowerblue", "darkorchid1"),
cex = 1.5,
cat.cex = 2,
cat.col = c("black", "black"),
cat.pos = c(120,300) ,
rotation.degree = 45,
main = "AD vs. WM",
sub = "Target Populations",
main.cex = 2,
sub.cex = 1.5
);

Answer 1

使用 if 语句查看第二个集合是否大于第一个。如果是，则将旋转添加 180 度。