mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-12-16 09:32:10 +01:00
1.3 KiB
1.3 KiB
Beautiful sankey plot
Beautiful sankey plot
Usage
plot_sankey_single(
data,
pri,
sec,
color.group = c("pri", "sec"),
colors = NULL,
missing.level = "Missing",
...
)
Arguments
-
color.group:
set group to colour by. "x" or "y".
-
colors:
optinally specify colors. Give NA color, color for each level in primary group and color for each level in secondary group.
-
...:
passed to sankey_ready()
Value
ggplot2 object
Examples
ds <- data.frame(g = sample(LETTERS[1:2], 100, TRUE), first = REDCapCAST::as_factor(sample(letters[1:4], 100, TRUE)), last = REDCapCAST::as_factor(sample(letters[1:4], 100, TRUE)))
ds |> plot_sankey_single("first", "last")
ds |> plot_sankey_single("first", "last", color.group = "sec")
data.frame(
g = sample(LETTERS[1:2], 100, TRUE),
first = REDCapCAST::as_factor(sample(letters[1:4], 100, TRUE)),
last = sample(c(TRUE, FALSE, FALSE), 100, TRUE)
) |>
plot_sankey_single("first", "last", color.group = "pri")
mtcars |>
default_parsing() |>
plot_sankey_single("cyl", "vs", color.group = "pri")
stRoke::trial |>
default_parsing() |>
plot_sankey_single("diabetes", "hypertension")
#> Warning: Some strata appear at multiple axes.
#> Warning: Some strata appear at multiple axes.
#> Warning: Some strata appear at multiple axes.