Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
options(digits = 4)
## ----input--------------------------------------------------------------------
library(eulerr)
# Input in the form of a named numeric vector
fit1 <- euler(c(
"A" = 25,
"B" = 5,
"C" = 5,
"A&B" = 5,
"A&C" = 5,
"B&C" = 3,
"A&B&C" = 3
))
# Input as a matrix of logicals
set.seed(1)
mat <- cbind(
A = sample(c(TRUE, TRUE, FALSE), 50, TRUE),
B = sample(c(TRUE, FALSE), 50, TRUE),
C = sample(c(TRUE, FALSE, FALSE, FALSE), 50, TRUE)
)
fit2 <- euler(mat)
## -----------------------------------------------------------------------------
fit2
## ----residual-plot, fig.cap = "Residuals for the fit diagram."----------------
# Cleveland dot plot of the residuals
dotchart(resid(fit2))
## ----error-plot, fig.cap = "A plot from `error_plot()`."----------------------
error_plot(fit2)
## ----coefs--------------------------------------------------------------------
coef(fit2)
## ----fig.cap = "A difficult combination from Wilkinson 2012."-----------------
wilkinson2012 <- c(
A = 4,
B = 6,
C = 3,
D = 2,
E = 7,
F = 3,
"A&B" = 2,
"A&F" = 2,
"B&C" = 2,
"B&D" = 1,
"B&F" = 2,
"C&D" = 1,
"D&E" = 1,
"E&F" = 1,
"A&B&F" = 1,
"B&C&D" = 1
)
fit3 <- euler(wilkinson2012, shape = "ellipse")
plot(fit3)
## ----eulerr-plot, fig.cap = "Customizing Euler plots is a breeze in eulerr."----
plot(fit2)
# Remove fills, vary borders, display quantities, and switch font.
plot(
fit2,
quantities = TRUE,
fill = "transparent",
lty = 1:3,
labels = list(font = 4)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.