Kaplan-Meier survival curves estimate survival probabilities over time for different groups.
data <- data.frame(
time = c(5, 8, 12, 15, 18, 22, 25, 30, 32, 35),
status = c(1, 1, 0, 1, 1, 0, 0, 1, 0, 1),
group = factor(c(1, 1, 1, 1, 2, 2, 2, 2, 2, 2))
)
km_fit <- survfit(Surv(time, status) ~ group, data = data)
km_data <- data.frame(time = km_fit$time,
surv = km_fit$surv,
strata = rep(levels(data$group),
times = km_fit$strata))
g <- ggplot(km_data, aes(x = time, y = surv, color = strata)) +
geom_step(linewidth = 1.2) +
labs(title = "Kaplan-Meier Survival Curve",
x = "Time",
y = "Survival Probability") +
theme_minimal()
g
