所用R包: forestplot , forestploter 单列森林图 示例数据 #forestplot包森林图代码附注释 fig3_1<-forestplot(result1[,c(1,2,6,7)], mean=result1[,3], lower=result1[,4], upper=result1[…
所用R包: ggplot2 1.数据准备 # 定义一个函数，用于生成每个变量的绘图所用数据 generate_test_data <- function(variable) { # 统计每列中大于 1、2、3。。。。的个数 count_values <- function(column) { c( sum(column < 0, …
所用R包: tidyverse 1.所需数据计算 #数据转置 adam1 <- adam %>% pivot_longer(variables,names_to="Time",values_to="ADL") #计算ADL的标准误 tgc1 <- summarySE(adam1, measurevar="ADL", groupva…
注：整理了日常工作中，对于数据变量添加标签的需求 所用R包：openxlsx, Hmisc, haven R语言添加标签（stata导出可用） # 简单添加 var_labels <- () #给出标签向量 data <- imap(data, ~ { label(data[[.y]]) <- var_labels…
注：此文章整理了常用的统计图绘图代码 所用r包：ggplot2 饼图 p <- ggplot(pdata2,aes(x = factor(1),percent,fill=type))+geom_col(colour = "white")+ coord_polar(theta = "y", start = 0) + geom_text(aes(…
注：在日常使用r语言保留数据的小数位数时，常会碰到小数位数强制取整的情况，如2.00会保存为2，本文介绍了我在遇到此问题时的处理方法 所用r包：tidyverse #将所有数值型变量的小数位数统一 format_column <- function(column) { if (is.numeric(column)) { # 识别每列的原始小数…
注：本章内容介绍了excel中常用的查询填补法，该方法相较于Excel中的功能更为强大，自定义程度高，可规定按照查询到的值替换原数据或仅替换原数据的缺失值。 数据集比较 #修改数据格式使对应 bcdata <- bcdata %>% mutate(across(all_of(variables),~as.numeric(as.chara…
所用r包：meta 待更新 单组连续型统计量 单组率 # 导入excel为列表 sheets <- getSheetNames("7d数据分析提取表.xlsx") data_frame <- lapply(sheets, read.xlsx, xlsxFile="7d数据分析提取表.xlsx") # assigning names to…
所用r包 library(tidyverse)library(openxlsx) 数据导入和预处理 adam <- read.csv("青春末期随访24.11.12录入完毕数据.csv") #空值转为缺失 adam <- adam %>% mutate(across(everything(),~ifelse(.=="",NA,.)…
参考资料：周志华《机器学习》 待更新 在高维情形下出现的数据样本稀疏、距离计算困难等问题是所有机器学习方法共同面临的严重障碍,被称为“维数灾难”(curseofdimensionality)缓解维数灾难的一个重要途径是降维(dimensionreduction),亦称“维数约简”,即通过某种数学变换将原始高维属性空间转变为一个低维“子空间“，很多时…