R：vennerable Venn：区号错误定位

Question

我想制作一个3项加权维恩图。 为此，我使用“透明”包，因为它似乎是最适合的。

然而，当我正在绘制我的数据时，不同区域的“重量”看起来不错，但值的位置不在正确的位置

这是我的剧本：

library(Vennerable)
library(VennDiagram)

data1 <- read.csv("1_1accessoutput.csv", header = FALSE)
data2 <- read.csv("2_1accessoutput.csv", header = FALSE)
data3 <- read.csv("3_1accessoutput.csv", header = FALSE)

vectorA <- as.vector(data1$V1)
vectorB <- as.vector(data2$V1)
vectorC <- as.vector(data3$V1)

Vmetadata <- list(test1 = vectorA, test2 = vectorB, test3 = vectorC)     
Vmeta <- Venn(Vmetadata)
Vmeta3 <- Vmeta[, c("test1", "test2", "test3")]
C3 <- compute.Venn(Vmeta3, doWeights = TRUE)
plot(C3)

我的数据太大了，无法将它们放在这里，所以我也尝试使用手动值输入 我得到了完全相同的问题（相应区域的值）

这里是代码：

Vcombo <- Venn(SetNames = c("test1", "test2", "test3"), Weight = c(0, 50, 54, 7, 46, 29, 91, 207))
plot(Vcombo)

我试图使用SetLabels和gpList选项但没有成功。 是否与加权维恩绘图不相容的值有关？

有人知道这个问题可能是什么原因，如果你有想法修复它？ 我只想制作一个能够为上述值加权区域的脚本。