mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-12-16 17:42:10 +01:00
67 lines
1.5 KiB
Markdown
67 lines
1.5 KiB
Markdown
# Easily plot euler diagrams
|
|
|
|
Easily plot euler diagrams
|
|
|
|
## Usage
|
|
|
|
``` r
|
|
plot_euler(data, pri, sec, ter = NULL, seed = 2103)
|
|
```
|
|
|
|
## Arguments
|
|
|
|
- data:
|
|
|
|
data
|
|
|
|
- seed:
|
|
|
|
seed
|
|
|
|
- x:
|
|
|
|
name of main variable
|
|
|
|
- y:
|
|
|
|
name of secondary variables
|
|
|
|
- z:
|
|
|
|
grouping variable
|
|
|
|
## Value
|
|
|
|
patchwork object
|
|
|
|
## Examples
|
|
|
|
``` r
|
|
data.frame(
|
|
A = sample(c(TRUE, TRUE, FALSE), 50, TRUE),
|
|
B = sample(c("A", "C"), 50, TRUE),
|
|
C = sample(c(TRUE, FALSE, FALSE, FALSE), 50, TRUE),
|
|
D = sample(c(TRUE, FALSE, FALSE, FALSE), 50, TRUE)
|
|
) |> plot_euler("A", c("B", "C"), "D", seed = 4)
|
|
#> Error in plot_euler(data.frame(A = sample(c(TRUE, TRUE, FALSE), 50, TRUE), B = sample(c("A", "C"), 50, TRUE), C = sample(c(TRUE, FALSE, FALSE, FALSE), 50, TRUE), D = sample(c(TRUE, FALSE, FALSE, FALSE), 50, TRUE)), "A", c("B", "C"), "D", seed = 4): object 'i18n' not found
|
|
mtcars |> plot_euler("vs", "am", seed = 1)
|
|
|
|
mtcars |> plot_euler("vs", "am", "cyl", seed = 1)
|
|
#> Error in plot_euler(mtcars, "vs", "am", "cyl", seed = 1): object 'i18n' not found
|
|
stRoke::trial |>
|
|
dplyr::mutate(
|
|
mfi_cut = cut(mfi_6, c(0, 12, max(mfi_6, na.rm = TRUE))),
|
|
mdi_cut = cut(mdi_6, c(0, 20, max(mdi_6, na.rm = TRUE)))
|
|
) |>
|
|
purrr::map2(
|
|
c(sapply(stRoke::trial, \(.x)REDCapCAST::get_attr(.x, attr = "label")), "Fatigue", "Depression"),
|
|
\(.x, .y){
|
|
REDCapCAST::set_attr(.x, .y, "label")
|
|
}
|
|
) |>
|
|
dplyr::bind_cols() |>
|
|
plot_euler("mfi_cut", "mdi_cut")
|
|
|
|
stRoke::trial |>
|
|
plot_euler(pri="male", sec=c("hypertension"))
|
|
```
|