Recruitment

file_info <- file.info("data/recruitment_data.csv")
recruitment_data <- read.csv("data/recruitment_data.csv")

random_data <- recruitment_data |> 
  select(random_date) |> 
  mutate(random_date = as_date(random_date))  |> 
  arrange(random_date) |> 
  mutate(n = row_number(),
         group = "Random selection for invitation to the trial") #random selection

uptake_data <- recruitment_data  |> 
  mutate(icf_date = as_date(icddate)) |> 
  filter(!is.na(icf_date) & icf_reg == 1)  |> 
  select(icf_date) |> 
  arrange(icf_date) |> 
  mutate(n = row_number(),
         group = "Informed consent signed")

plot <- plot_ly() %>%
  # Random selection traces
  add_trace(
    data = random_data,
    x = ~random_date,
    y = ~n,
    type = 'scatter',
    mode = 'lines+markers',
    name = ~group,
    line = list(color = '#000000'),
    marker = list(color = '#000000'),
    fillcolor = 'rgba(0, 0, 0, 0.1)',
    fill = 'tonexty'
  ) %>%
  
  # Uptake traces
  add_trace(
    data = uptake_data,
    x = ~icf_date,
    y = ~n,
    type = 'scatter',
    mode = 'lines+markers',
    name = ~paste(group, "(Uptake)"),
    line = list(color = '#068194'),
    marker = list(color = '#068194'),
    fillcolor = 'rgba(6, 129, 148, 0.5)',
    fill = 'tozeroy'
  ) %>%
  
  # Layout configurations
  layout(
    shapes = list(
      list(
        type = "line",
        y0 = 150,
        y1 = 150,
        x0 = 0,
        x1 = 1,
        xref = "paper",
        line = list(color = '#068194', dash = 'dash')
      )
    ),
    annotations = list(
      list(
        x = 0.5,  # Position at right end of plot
        y = 145,
        xref = "paper",
        text = "recruitment target",
        showarrow = FALSE,
        xanchor = "middle", 
        font = list(color = '#068194',
                    size = 19)
      )
    ),
    xaxis = list(
      title = "",
      tickformat = "%b %Y",
      dtick = "M3" # 3-month intervals
    ),
    yaxis = list(
      title = "number of patients",
      range = c(0, 160),
      tickvals = c(0, 50, 100, 150),
      ticktext = c("0", "50", "100", "150"),
      gridcolor = "gray80",
      minorgridcolor = "gray95",
      minorgridcount = 5  # This will create minor gridlines at 25-unit intervals
    ),
    showlegend = TRUE,
    legend = list(
      orientation = "h",
      xanchor = "center",
      x = 0.5,
      y = -0.2
    ),
    # Use a clean white theme similar to theme_minimal
    plot_bgcolor = "white",
    paper_bgcolor = "white"
  )

plot

Figure 1: Recruitment

Eligible patients at the Division of Medical Oncology at the University Hospital Basel are randomly invited to participate in the LIQPLAT trial. We aim to recruit 150 participants within 18 months. As of 2025-01-02, 77 patients have agreed to participate in the trial.