table1 | 一秒搞定你的三线表

1. 需要的包

rm(list=ls())
library(dplyr)
library(table1)

2. 示例数据

本次使用的是大名鼎鼎的iris，这里你可以替换成你的数据

dat <- iris %>% mutate(.,color = rep(c("red","blue","green"), each = 50)) %>% mutate(.,group = rep(c("big","small"), each = 75)) #在这里新增2列，后面会用到 （无中生有！,,Ծ‸Ծ,,）view(dat) #数据不大, 这里就view一下吧~ ๐•ᴗ•๐

3. 给变量添加单位（可选）

这里以变量Sepal.Length和Sepal.Width为例，添加单位，将在三线表中显示。

units(dat$Sepal.Length)   <- "mm"
units(dat$Sepal.Width)    <- "mm"

4. 开始绘制三线表

4.1 初步绘制

table1(~ Sepal.Length + Sepal.Width + Petal.Length +Petal.Width, # 以上均为变量data=dat,  # 你的数据overall = "Total")

4.2 分组绘制（单变量分组）

以Species为分组变量进行统计

table1(~ Sepal.Length + Sepal.Width + Petal.Length +Petal.Width | Species, #Species为分组变量data=dat,  # 你的数据overall = "Total")

4.3 分组绘制（双变量分组）

由于iris没有第二个分组变量，我们在之前新增了一列color作为分层变量

table1(~ Sepal.Length + Sepal.Width + Petal.Length +Petal.Width | Species*color, #Species为分组变量,color为分层变量data=dat,  # 你的数据overall = "Total")

Note: 这里大家要注意var*var前后顺序，意义是不一样的，我们调换一下Species和color的顺序

table1(~ Sepal.Length + Sepal.Width + Petal.Length +Petal.Width | color*Species, #color为分组变量,Species为分层变量data=dat,  # 你的数据overall = "Total")

5. 填加统计值

5.1 自定义函数计算统计值

这个包美中不足的地方，没有统计值啊~，大家复制这段代码添加统计值

pvalue <- function(x, ...) {# Construct vectors of data y, and groups (strata) gy <- unlist(x)g <- factor(rep(1:length(x), times=sapply(x, length)))if (is.numeric(y)) {# For numeric variables, perform a standard 2-sample t-testp <- t.test(y ~ g)$p.value} else {# For categorical variables, perform a chi-squared test of independencep <- chisq.test(table(y, g))$p.value}# Format the p-value, using an HTML entity for the less-than sign.# The initial empty string places the output on the line below the variable label.c("", sub("<", "&lt;", format.pval(p, digits=3, eps=0.001)))
}stats <- function(x, ...) {y <- unlist(x)g <- factor(rep(1:length(x), times=sapply(x, length)))if (is.numeric(y)) {s <- t.test(y ~ g)$statistic} else {s <- chisq.test(table(y, g))$statistic}c("", sprintf("%.4f", s))
}

5.2 绘制带统计值的三线表

table1(~ Sepal.Length + Sepal.Width + Petal.Length +Petal.Width | group, data=dat, overall = F,extra.col=list(`P-value`=pvalue, `statistic`=stats))

最后祝大家早日不卷!~

点个在看吧各位~ ✐.ɴɪᴄᴇ ᴅᴀʏ 〰

table1 | 一秒搞定你的三线表相关推荐

mvvm怎么让光标制定属性的文本框_Word怎么快速制作斜线表头？10秒搞定，表格颜值直线上升...
Word怎么快速制作斜线表头?这个问题可能困扰着很多刚进入职场的小伙伴.不管是文员是一线工作人员,工作中或多或少都会涉及斜线表头的制作. 因此,今天就给大家分享一下制作斜线表头的方法,而在Word中斜 ...
如何从华为P20导出视频到计算机,华为P20怎样投屏到投影仪？10秒搞定，投屏后媲美电脑！...
原标题:华为P20怎样投屏到投影仪?10秒搞定,投屏后媲美电脑! 欢迎转载,请注明出处,抄袭必究! 华为P20 的PC模式,原来有简单了解过,以为只是一个普通的投屏功能而已,这几天体验了一翻,才发现其 ...
3秒搞定！~~ 一亿数据获取前100个最大值
3秒搞定!~~ 一亿数据获取前100个最大值整合网络上的算法. 根据我的思路.计算一亿个数字中最大的前100个值. 昨晚效率还是很低. 今天搞的算法. 只需要3秒钟. 获取前100个前1000个 ...
杭州一高中推刷脸吃饭：8秒搞定；乌海市与上海荷福签署合作协议进入人工智能矿业安全领域...
北汽与百度签署战略合作打造"人工智能+汽车"生态雷锋网 AI 掘金志消息,10月13日,北汽集团与百度战略合作协议签约仪式在北京汽车产业研发基地举行.北汽集团党委书记.董事长徐和 ...
那些一秒搞定微软公司Excel的神操作（上）！
微软公司的Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件.直观的界面.出色的计算功能和图表工具,使Excel成为最流行的个人计算 ...
wpspbc按钮是什么意思_10秒搞定超简单的PBC按钮配置法
10秒搞定超简单的PBC按钮配置法 PBC按钮配置的实现方法非常简单,前两步设置与输入PIN码法设置相同,即打开无线网卡的应用程序,选择需要接入的无线网络,然后点击"WPS"按钮 ...
小米鼠标，蓝牙鼠标MiMouse ，电脑搜不到怎么办？一秒搞定
小米鼠标蓝牙搜索不到MiMouse 一秒搞定打开底盖上电池按中间按钮蓝色灯为蓝牙模式蓝牙鼠标,电脑搜不到怎么办? 解决办法: 发现鼠标灯一直不间断的闪,就是连不上.然后我长按鼠标灯几秒,蓝牙马上 ...
浙江金华“刷脸看病”，挂号付款20秒搞定！
资讯来源:浙江新闻编辑:大和智付版权说明:版权归原作者与平台所有,如有侵权,请联系删除. 浙江市卫健委信息中心介绍,目前市中医医院.市人民医院.市中心医院都已经上线"刷脸看病" ...
告别 PS ！3 行代码 5 秒搞定抠图的 AI 神器！
作者 | 苏克1900 责编 | 伍杏玲本文经授权转载自高级农民工(ID:Mocun6) 曾几何时,「抠图」是一个难度系数想当高的活儿,但今天要介绍的这款神工具,只要 3 行代码 5 秒钟就可以完成 ...

table1 | 一秒搞定你的三线表

1. 需要的包

2. 示例数据

3. 给变量添加单位（可选）

4. 开始绘制三线表

4.1 初步绘制

4.2 分组绘制（单变量分组）

4.3 分组绘制（双变量分组）

5. 填加统计值

5.1 自定义函数计算统计值

5.2 绘制带统计值的三线表

table1 | 一秒搞定你的三线表相关推荐

最新文章

热门文章

table1 | 一秒搞定你的三线表

1. 需要的包

2. 示例数据

3. 给变量添加单位（可选）

4. 开始绘制三线表

4.1 初步绘制

4.2 分组绘制 （单变量分组）

4.3 分组绘制 （双变量分组）

5. 填加统计值

5.1 自定义函数计算统计值

5.2 绘制带统计值的三线表

table1 | 一秒搞定你的三线表相关推荐

最新文章

热门文章

4.2 分组绘制（单变量分组）

4.3 分组绘制（双变量分组）