R语言计算中位生存时间及95%置信区间

您可以使用R语言中的survival包来计算中位生存时间和95%置信区间。下面是一个示例代码：

# 导入survival包
library(survival)

# 创建一个生存数据的示例
time <- c(10, 20, 30, 40, 50, 60)  # 生存时间
status <- c(1, 1, 0, 1, 0, 1)     # 存活状态（1表示存活，0表示死亡）
data <- data.frame(time, status)

# 使用survfit函数拟合生存曲线
fit <- survfit(Surv(time, status) ~ 1, data=data)

# 计算中位生存时间
median_time <- median(fit$time)

# 计算95%置信区间
ci <- confint(fit)
lower_ci <- ci[1, "95%"]
upper_ci <- ci[2, "95%"]

# 打印结果
cat("中位生存时间:", median_time, "\n")
cat("95%置信区间:", lower_ci, "-", upper_ci)

请注意，您需要将实际的生存数据替换为`time`和`status`向量。此示例是一个简单的示例，您可以根据您的实际数据进行修改。