如何使用线型将Kaplan Meier和geom_line编组到一个图例下？

library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  time = c(1, 2, 3, 4, 5),
  event = c(1, 1, 0, 1, 0),
  group = c("Group A", "Group A", "Group B", "Group B", "Group C")
)

# 使用Kaplan Meier方法计算生存曲线
km <- survfit(Surv(time, event) ~ group, data = data)

# 创建一个空白的ggplot对象
p <- ggplot()

# 添加Kaplan Meier曲线
p <- p + geom_step(data = data, aes(x = time, y = 1 - surv, linetype = group), stat = "survfit", size = 1)

# 添加geom_line曲线
p <- p + geom_line(data = data, aes(x = time, y = 1 - event, linetype = group), size = 1)

# 设置图例标题和标签
p <- p + labs(linetype = "Group")

# 显示图例
p <- p + scale_linetype_manual(values = c("Group A" = "solid", "Group B" = "dashed", "Group C" = "dotted"))

# 显示图形
print(p)