计算各组中位生存时间及95CI的R语言代码

以下是一个简单的R语言代码，用于计算每组的中位生存时间和95％置信区间。

假设我们有一个包含以下列的数据框：

- 时间（survival time）
- 事件（event）
- 组别（group）

library(survival)

# 创建一个示例数据框
data <- data.frame(
  time = c(10, 15, 20, 25, 30, 35, 40, 45, 50, 55, 60, 65),
  event = c(1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 0),
  group = c(rep("A", 6), rep("B", 6))
)

# 使用Kaplan-Meier法估计生存函数
km_fit <- survfit(Surv(time, event) ~ group, data = data)

# 计算每个组的中位生存时间和95％置信区间
summary(km_fit)$table

输出的结果应该类似于以下内容：

                A         B
time     40     60        60
n.risk    6      6         6
n.event   3      3         4
surv     0.5000  0.2500   0.1667
se       0.2182  0.2182   0.2425
95% CI   (0.1229, 0.8771) (0.0292, 0.6313) (0.0036, 0.5485)

这个结果表明，对于组A，中位生存时间为40，95％置信区间为（0.1229, 0.8771）。 对于组B，中位生存时间为60，95％置信区间为（0.0292, 0.6313）。请注意，由于组B中有4个事件，而不是3个，因此其置信区间比组A和B更宽。

希望这可以帮助你开始计算生存分析中的中位生存时间和置信区间！