fit <- eulerr(c(A = 10, B = 5, "A&B" = 3))
plot(fit, fill_opacity = .7)
# Change to italic roman font, remove borders and switch colors
plot(fit,
polygon_args = list(col = c("dodgerblue4", "darkgoldenrod1"),
border = "transparent"),
text_args = list(font = 8))
# Plot without fills and distinguish sets with border types instead
plot(fit,
polygon_args = list(lty = c("solid", "dotted"), col = "transparent"),
text_args = list(cex = 2, font = 2))
Run the code above in your browser using DataLab