Comment mettre une virgule dans un grand nombre de diagrammes de Venn ?

Question

J'ai un diagramme de Venn que j'ai créé avec le paquet VennDiagram. Les nombres sont supérieurs à 100 000.

Je voudrais que le nombre au milieu soit 150 001, avec une virgule comme séparateur, ou 150 000, avec un petit espace entre les deux. Est-ce possible avec VennDiagram ?

Voici mon exemple

library(VennDiagram)
venn.diagram(x = list(A = 1:200000,B = 50000:300000), filename = "../example.tiff")

Answer 1

Je ne pense pas que vous puissiez le faire facilement. Il existe deux modes d'impression, raw y percent mais ceux-ci sont codés en dur dans la fonction (voir la section VennDiagram::draw.triple.venn ). Vous pouvez ajouter des formats en modifiant la fonction (ce que je ne souhaite pas) ou en modifiant manuellement les grobs (ce qui est fait ci-dessous).

library(VennDiagram)
p <- venn.diagram(x = list(A = 1:200000,B = 50000:300000), filename = NULL)

# Change labels for first three text grobs
# hard-coded three, but it would be the number of text labels
# minus the number of groups passed to venn.diagram
idx <- sapply(p, function(i) grepl("text", i$name))

for(i in 1:3){
  p[idx][[i]]$label <- 
           format(as.numeric(p[idx][[i]]$label), big.mark=",", scientific=FALSE)
}

grid.newpage()
grid.draw(p)