我使用下面的代码创建带有2个圆圈的维恩图。我想知道是否可以使用VennDiagram包将圆的大小设置为与唯一值的数量的大小成比例。当然,在我的示例中,大小将是相同的,因为两个圆圈中只有1个值是唯一的,但是我很想知道它是如何完成的。
dc <- c("CACNA1C", "CACNA1D", "KCNN4", "CACNA1F", "CACNA1D", "CACNA1C", "GNRHR", "CD80", "CD86", "ITGA2B" )
tc <- c("CACNA1C", "CACNA1D", "CACNA1C", "CACNA1D", "CACNA1F", "KCNN4", "APP", "GNRHR", "CD86", "CD80" )
library(VennDiagram)
Vt <- venn.diagram(
x = list(
DC_Dataset=dc,
TC_Dataset=tc
),
#filename = "1B-double_Venn.tiff",
main = "Targets",
main.cex = 3,
filename = NULL,
lwd = 4,
fill = c("cornflowerblue", "green"),
alpha = 0.75,
label.col = "black",
cex = 2,
fontfamily = "sansserif",
fontface = "bold",
cat.col = c("black", "black"),
cat.cex = 1.5,
cat.fontfamily = "sansserif",
cat.fontface = "bold",
cat.dist = c(0.03, 0.03),
cat.pos = c(-20, 14)
)
grid.newpage()
grid.draw(Vt)