在“Vennerable”中引入换行符；元素“；

我正在使用绘制维恩图

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)

库（可恢复）
A如果在名称中添加“\n”，则换行符将出现在文本标签中：

L <- list('A\nB'=A,'B\nC'=B,'C\nD'=C)
V <- Venn(L)
gp <- VennThemes(compute.Venn(V))
gp$FaceText <- lapply(gp$FaceText,function(x) {x$fontsize<-10; return(x)})
plot(V ,doWeights=FALSE,show=list(FaceText="elements"),gp=gp)

L
linebreak <- function(x,...){
  gsub('(.{1,15})(\\s|$)', '\\1\n', x)} 

L <- list('A\nB'=A,'B\nC'=B,'C\nD'=C)
V <- Venn(L)
gp <- VennThemes(compute.Venn(V))
gp$FaceText <- lapply(gp$FaceText,function(x) {x$fontsize<-10; return(x)})
plot(V ,doWeights=FALSE,show=list(FaceText="elements"),gp=gp)