andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-09-12 18:09:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

...

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-03-05 21:18:26 +01:00
parent bc8aa7b583
commit 96c397e827
No known key found for this signature in database
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
R/data_plots.R
View file

@ -754,6 +754,7 @@ default_theme <- function() {
#' #'
#' @param color.group #' @param color.group
#' @param colors #' @param colors
#' @param ... passed to sankey_ready()
#' #'
#' @returns ggplot2 object #' @returns ggplot2 object
#' @export #' @export
@ -762,8 +763,8 @@ default_theme <- function() {
#' 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 <- 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")
#' ds |> plot_sankey_single("first", "last", color.group = "y") #' ds |> plot_sankey_single("first", "last", color.group = "y")
plot_sankey_single <- function(data,x,y, color.group = "x", colors = NULL){ plot_sankey_single <- function(data,x,y, color.group = "x", colors = NULL,...){
data <- data |> sankey_ready(x = x, y = y) data <- data |> sankey_ready(x = x, y = y,...)
# browser() # browser()
library(ggalluvial) library(ggalluvial)