I’m trying to create swimmer plot with ggplot by following online resources because Power BI service does not support swimplot package but supports ggplot 3.3.3. The plot looks good, but the legend does not work as expected. An error occurs when using guides(color = guide_legend(override.aes =…)). I’m guessing it is because one of the columns (DaysCR) contains no data. Is it possible to show “CR” in the legend for DaysCR even if no data? Then maybe the override.aes would work.

The data looks like:

library(tidyverse)

dat_swim <- 
dataset |>
    mutate(Subject = fct_reorder(factor(Subject), DaysTRT))

dataCR <- dataset[, c("Subject", "DaysCR")]

cols <- c("TRT" = "blue",
          "CR" = "green",
          "Death"="black", 
          "Discontinuation" = "red")

shape_override <- c(21,24,24,NA)
line_override <- c(NA,NA,NA,1)
fill_override <- c("green","black","red","blue")

ggplot(data = dat_swim, aes(y=Subject, group="Subject")) +

  geom_segment(aes(x = 0, xend=DaysTRT, y=Subject, color="TRT")) +
  geom_point(aes(x=DaysDISC, y=Subject, color="Discontinuation", fill="Discontinuation"), shape=24) +
  geom_point(aes(x=DaysDTH, y=Subject, color="Death", fill="Death"), shape=24) +
  geom_point(data = na.omit(dataCR), aes(x=DaysCR, y=Subject, color="CR", fill="CR"), shape=21) +

  scale_color_manual(values=cols, name="Legend") + scale_fill_manual(values=cols) + guides(fill=FALSE) + 

#issue with this line
   guides(color = guide_legend(
           override.aes = list(
             shape = shape_override,
             linetype = line_override,
             fill = fill_override)))

Thank you