如何在R中对table1函数中的行进行子集？

# 安装和加载必要的包
if (!requireNamespace("tableone", quietly = TRUE)) {
  install.packages("tableone")
}
library(tableone)

# 创建示例数据
data <- data.frame(
  age = c(25, 35, 45, 55, 65),
  sex = factor(c("M", "F", "M", "F", "M")),
  bmi = c(22.5, 27.3, 30.1, 28.4, 24.9),
  smoker = factor(c("Yes", "No", "No", "Yes", "No")),
  outcome = c(1, 0, 1, 0, 1)
)

# 使用table1函数创建交叉表
tab <- tableOne(data = data, factorVars = c("sex", "smoker"))

# 将table1的结果转换为数据框
tab_df <- as.data.frame(tab)

# 对数据框进行行子集操作
# 例如，选择年龄大于40岁的行
subset_df <- tab_df[tab_df$age > 40, ]

# 打印结果
print(subset_df)