eulerr 包中的调色板

Question

我真的很喜欢 eulerr 包。它制作美丽的情节。但是，我对颜色不感兴趣，因此想使用现有的配色方案，例如 "viridis" 或 "magma." 这可能吗，或者这些方案是否仅限于连续数据？

Answer 1

是的，有可能

library(viridis)
library(eulerr)

拉一些绿色。我正在使用等离子刻度（你可以使用岩浆、地狱，任何你喜欢的刻度）并拉出 4 种颜色，因为这就是演示图中有多少重叠区域。

colors <- c(viridis::plasma(n = 4))

制作欧拉图，来自欧拉演示here

fit1 <- euler(c("A" = 25, "B" = 5, "C" = 5,
            "A&B" = 5, "A&C" = 5, "B&C" = 3,
            "A&B&C" = 3))
set.seed(1)
mat <-
  cbind(
    A = sample(c(TRUE, TRUE, FALSE), size = 50, replace = TRUE),
    B = sample(c(TRUE, FALSE), size = 50, replace = TRUE),
    C = sample(c(TRUE, FALSE, FALSE, FALSE), size = 50, replace = TRUE)
  )
fit2 <- euler(mat)

用我们的 viridis 颜色绘制欧拉图

plot(fit2,
fills = list(fill = colors),
edges = list(lty = 1:3),
labels = list(font = 2))

eulerr 包中的调色板

Color palettes in the eulerr package

plot

color-scheme

r

venn-diagram

eulerr