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

Question

我有一个用 VennDiagram 包制作的维恩图。数字超过 100,000。

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

这是我的例子

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)