我正在尝试使用 eulerr
eulerr
我试过使用 cex=0.5 fontsize = 和 font = 但没有一家公司减少了字体大小。我要放吗 cex=0.5 处于错误的位置?
cex=0.5
fontsize =
font =
library(eulerr) set1 <- euler(c("A&B" = 3103, "A&C" = 1034, "A&D" = 118, "B&C" = 2690, "B&D" = 1017, "C&D" = 1383, "A&B&C" = 394, "A&B&D" = 73, "A&C&D" = 45, "B&C&D" = 153, "A&B&C&D" = 32)) eulerr.plot <- plot(set1, fills = list(fill = c("#009292", "#FFB6DB", "#B66DFF", "#6DB6FF"), alpha = 0.7), labels = NULL, quantities = TRUE, legend = list(labels = c("A", "B", "C", "D")), cex = 0.5)
通过向该参数传递定义大小的列表,可以更改数量的文本大小,如下所示:
plot(set1, fills = list(fill = c("#009292", "#FFB6DB", "#B66DFF", "#6DB6FF"), alpha = 0.7), labels = NULL, quantities = list(cex = .5), legend = list(labels = c("A", "B", "C", "D")))