我尝试绘制一个维恩图，其中一组是另一组的子集。但由于某种原因，它并不总是完全绘制在场景中，而是在场景之外一点点。我究竟做错了什么？
file <- read.csv(file="C:\\test.csv",head=TRUE,sep=",")
Lists <- list(file$A,file$B,file$C)
items <- sort(unique(unlist(Lists)))
MAT <- matrix(rep(0,length(items)*length(Lists)), ncol=3)
colnames(MAT) <- c("A","B","C")
rownames(MAT) <- items
lapply(seq_along(Lists), function(i){
MAT[items %in% Lists[[i]],i] <<- table(Lists[[i]])
})
library(venneuler)
v <- venneuler(MAT>0)
csv 文件示例，其中 C 是 B 的子集
A B C
37 16 16
38 25 25
58 35 35
103 36 36
106 37 37
108 48 66
117 52 80
196 58 90
206 66 97
240 74
251 80
266 90
269 97
325 226
346 266
353 298
428 429
575 514
524