Plot an hv_followup object

Builds a bare goodness-of-follow-up ggplot2 object from an hv_followup data object. Each patient appears as a point at their operation year (x) and total follow-up time (y), shaped and colored by their state. An orange diagonal reference line shows the maximum possible follow-up for patients enrolled at each year. A vertical stem below each point is drawn only when hv_followup() was called with a positive segment_drop.

Usage

# S3 method for class 'hv_followup'
plot(
  x,
  type = c("followup", "event"),
  alpha = 0.8,
  diagonal_color = "orange",
  diagonal_linetype = "dashed",
  diagonal_linewidth = 0.6,
  ...
)

Arguments

x

An hv_followup object.

type

Which panel to produce: "followup" (default, death states) or "event" (requires event_col to have been supplied to hv_followup).

alpha

Point/segment transparency in \([0,1]\). Default 0.8.

diagonal_color

Color of the diagonal reference line. Default "orange".

diagonal_linetype

Linetype for the diagonal. Default "dashed".

diagonal_linewidth

Linewidth for the diagonal. Default 0.6.

...

Ignored; present for S3 consistency.

Value

A bare ggplot object.

See also

hv_followup, theme_hv_manuscript

Examples

dta <- sample_goodness_followup_data()
gf  <- hv_followup(dta, event_col = "ev_event",
                     event_time_col = "iv_event")

# Death panel
plot(gf) +
  ggplot2::scale_color_manual(
    values = c("Alive" = "steelblue", "Dead" = "firebrick"),
    name = NULL
  ) +
  ggplot2::labs(x = "Operation Date", y = "Follow-up (years)") +
  theme_hv_poster()


# Event panel
plot(gf, type = "event") +
  ggplot2::scale_color_manual(
    values = c("No event" = "blue", "Non-fatal event" = "green3",
               "Death" = "red"),
    name = NULL
  ) +
  ggplot2::labs(x = "Operation Date", y = "Follow-up (years)") +
  theme_hv_poster()


# Legacy stem below each point -- restored with a positive segment_drop
plot(hv_followup(dta, segment_drop = 0.2))