mirror of
https://github.com/agdamsbo/FreesearchR.git
synced 2025-09-12 09:59:39 +02:00
Andreas Gammelgaard Damsbo
efc3f8acc3
Some checks are pending
pkgdown.yaml / pkgdown (push) Waiting to run
33 lines
1.1 KiB
R
33 lines
1.1 KiB
R
% Generated by roxygen2: do not edit by hand
|
|
% Please edit documentation in R/plot_sankey.R
|
|
\name{plot_sankey_single}
|
|
\alias{plot_sankey_single}
|
|
\title{Beautiful sankey plot}
|
|
\usage{
|
|
plot_sankey_single(data, x, y, color.group = c("x", "y"), colors = NULL, ...)
|
|
}
|
|
\arguments{
|
|
\item{color.group}{set group to colour by. "x" or "y".}
|
|
|
|
\item{colors}{optinally specify colors. Give NA color, color for each level
|
|
in primary group and color for each level in secondary group.}
|
|
|
|
\item{...}{passed to sankey_ready()}
|
|
}
|
|
\value{
|
|
ggplot2 object
|
|
}
|
|
\description{
|
|
Beautiful sankey plot
|
|
}
|
|
\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 = "y")
|
|
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 = "x")
|
|
}
|