如何在大量的 VennDiagram 中放置逗号？

Question

我有一个用 VennDiagram 包制作的维恩图。人数超过10万。

我希望中间的数字是 150,001，用逗号分隔，或者 150 000，中间有一个小的 space。这可能与维恩图有关吗？

这是我的例子

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

Answer 1

我不认为你可以轻松做到这一点。有两种打印模式，raw 和 percent，但它们是硬编码在函数中的（请查看 VennDiagram::draw.triple.venn）。您可以通过更改功能（我不喜欢）或手动调整 grobs（在下面完成）来添加格式

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)

如何在大量的 VennDiagram 中放置逗号？

How to put comma in large number of VennDiagram?

r

venn-diagram