注：整理了日常工作中，对于数据变量添加标签的需求 所用R包：openxlsx, Hmisc, haven R语言添加标签（stata导出可用） # 简单添加 var_labels <- () #给出标签向量 data <- imap(data, ~ { label(data[[.y]]) <- var_labels…
注：在日常使用r语言保留数据的小数位数时，常会碰到小数位数强制取整的情况，如2.00会保存为2，本文介绍了我在遇到此问题时的处理方法 所用r包：tidyverse #将所有数值型变量的小数位数统一 format_column <- function(column) { if (is.numeric(column)) { # 识别每列的原始小数…
简介：解决读入外部数据时，由于编码格式问题导致的字符乱码及数据分析报错情况。 所用R包：stringi 变量名格式调整 names(data) <- iconv(names(data), to = "ASCII//TRANSLIT") names(data) <- gsub("\\.", "_", names(data)) names(…
简介：本专题总结了我目前碰到的一些用R代码解决的Excel数据及表格处理中的难点，相比传统excel菜单式操作具有可复现及可批量化的优势。 所用r包：openxlsx、tidyverse、redaxl、rio Excel或wps功能的R语言实现 Excel日期格式 adam <- read.xlsx("xxxxx.xlsx") adam$生日…
简介：利用tidyverse包中的across和map函数及传统的for循环功能，试图实现统计分析中大量重复工作的批量化以及繁杂代码的精简化，目前只汇总了目前所用到的一些批量化程序，进一步汇总有待后续更新。。。 设置变量类型 #批量设置因子型/有序型/字符型/数值型变量 variables <-c("Group.1.vs..2","Group…
简介：gtsummary包可实现快速常用论文表 详细参数设置参考官方网址 Gtsummary 官方网站 基线表 1.t检验 # 补充正态性检验 mytest1 <- function(data, variable, ...) { shapiro.test(data[[variable]])$p.value } mytest2 …