当数据集包括长达25年的信息时，用来制作Kaplan Meier图的R代码是什么? 10年内有多少人患糖尿病？

# 导入必要的包
library(survival)
library(survminer)

# 读取数据集
data <- read.csv("data.csv")

# 创建生存对象
surv_obj <- Surv(time = data$时间, event = data$事件)

# 计算Kaplan Meier曲线
km_fit <- survfit(surv_obj ~ 1)

# 绘制Kaplan Meier曲线
ggsurvplot(km_fit, data = data, risk.table = TRUE)

# 假设数据集中的糖尿病字段为diabetes
# 假设数据集中的时间字段为time

# 选择10年内的数据
data_10_years <- subset(data, time <= 10)

# 统计10年内患糖尿病的人数
diabetes_count <- sum(data_10_years$diabetes == 1)