如何无需逐个列举列名向table1::table1函数传入多列？

当需要为数据框中大量变量生成描述性表格时，无需手动逐个输入变量名，可通过动态构建公式的方式实现批量指定，以下是具体方法：

方法1：包含数据框所有变量 #

利用reformulate()函数自动生成包含所有变量的公式，这是最简洁的方式：

# 获取数据框的所有变量名
all_variables <- names(data)
# 构建table1可识别的公式
full_formula <- reformulate(all_variables)
# 生成描述性表格
new_table <- table1::table1(full_formula, dataset = data)

方法2：仅包含指定变量（排除部分变量） #

如果不需要数据框中的全部变量，先筛选出目标变量再构建公式：

# 排除不需要的变量（替换为你实际要排除的变量名）
target_variables <- setdiff(names(data), c("id_column", "unwanted_var"))
# 构建公式
target_formula <- reformulate(target_variables)
# 生成表格
new_table <- table1::table1(target_formula, dataset = data)

原理说明 #

table1()函数的第一个参数接受公式格式的输入，reformulate()函数可以将变量名向量转换为~ var1 + var2 + ... + varn的公式结构，完全符合table1的参数要求，从而实现批量变量的快速指定。

内容的提问来源于stack exchange，提问作者Chris