R语言快速制作学术论文三线表

PartR语言快速制作学术论文三线表

三线表以其形式简洁、功能分明、阅读方便而在科技论文中被推荐使用。

本文主要使用table1包制作三线表，生成的三线表为html格式，可以直接复制到word中，本文主要实现以下目标：

• 制作基本三线表

• 制作双变量三线表

• 三线表自定义设定

• 修改三线表格样式

library(table1)

1创建数据集

首先简单创建一个数据集之后用于三线表制作。

f <- function(x, n, ...) factor(sample(x, n, replace=T, ...), levels=x)
set.seed(427)

n <- 146
dat <- data.frame(id=1:n)
dat$treat <- f(c("Placebo", "Treated"), n, prob=c(1, 2)) # 2:1 randomization
dat$age   <- sample(18:65, n, replace=TRUE)
dat$sex   <- f(c("Female", "Male"), n, prob=c(.6, .4))  # 60% female
dat$wt    <- round(exp(rnorm(n, log(70), 0.23)), 1)

# Add some missing data
dat$wt[sample.int(n, 5)] <- NA

label(dat$age)   <- "Age"
label(dat$sex)   <- "Sex"
label(da