我使用Vennerable package来绘制维恩图。 library(Vennerable)
A <- c("aa","ab","ac","a1")
B <- c("bb","ab","bc")
C <- c("ac","bc","cc","aa")
L <- list(A=A,B=B,C=C)
V <- Venn(L)
我知道我可以操控字体大小“元素”与 gp <- Venn
我正在尝试将百分比添加到维恩图的每个部分。我曾尝试使用粘贴将循环标题与百分比连接起来。然而,不幸的是,这并不完全奏效,因为它仅提供了每个独立组的百分比,并且没有提供每个交叉点的百分比,因为交叉点没有标题。理想情况下,我希望百分比在圈内。例如,我希望中间的三重交叉(工作,学习,游戏)表示“83,20.54%”,而不是它目前所表示的“83”。 以下是代码的一个基本的例子比我有工作: g = draw.