to摘要R包:如何为tbl_regression添加事件数量？

install.packages("gtsummary")
library(gtsummary)

# 假设你有一个数据框df，其中包含了你的生存分析数据
# 例如：df <- data.frame(time = c(1, 2, 3, 4), event = c(1, 0, 1, 1), var1 = c(1, 2, 3, 4))

# 查看数据的前几行
head(df)

# 使用tbl_regression创建回归表格
regression_table <- tbl_regression(
  data = df,
  method = lm,
  y = time ~ var1 + event  # 假设你的模型是time ~ var1 + event
)

# 添加事件数量
regression_table <- regression_table %>%
  add_p() %>%  # 添加p值
  bold_labels() %>%  # 加粗标签
  italicize_level() %>%  # 斜体显示水平
  add_n()  # 添加事件数量

# 显示表格
regression_table

install.packages("gtsummary")