zoukankan      html  css  js  c++  java
  • R语言绘制三线表

    在进行文章的撰写时,总是少不了一些表格的绘制,当然最标准的表格就是三线表了。我一般用word绘制三线表,但是R语言也可以且比较省时间。

    setwd('D:\SCIwork\F4\clinical')
    
    require(table1)
    
    rm(list=ls()) 
    
    library(dplyr)
    
    library(tidyr)
    
    data <- read.csv('survival.csv', header = T, row.names = 1) 
    
    library(stringr)
    
    colnames(data)
    
    data <- data[-(1:6), ]
    
    data$T  <-   str_extract(data$TNM, "T\d")
    
    
    data$Te1  <-   str_extract(data$TNM, "T\d[a-z]+")
    data$Te1 <- ifelse(is.na(data$Te1),data$Te2,data$Te1)
    
    
    data$N  <-   str_extract(data$TNM, "N\d")
    data$N  <-   str_extract(data$N, "\d")
    
    data$M <-   str_extract(data$TNM, "M\d")
    data$M <-   str_extract(data$M, "\d")
    
    
    
    data$stage1  <- str_trim(str_extract(data$Stage, "\s[H-Z]+"),
                             side = c("both", "left", "right"))
    
    data$stage <- ifelse(data$stage1 == "X" ,'', data$stage1)
    
    
    data$stage 
    
    colnames(data)
    
    data$Age <- ifelse(data$Age > 60, '> 60','<= 60')
    
    table(data$Age)
    
    table(data$OS)
    
    
    
    ## 对我们感兴趣的变量因子化
    data$OS <- 
      factor(data$OS, 
             levels=c(0,1),
             labels=c("Alive", # 第一个作为参考组
                      "Death"))
    table <- table1(~ factor(Gender) + factor(Age) + factor(stage) + 
             factor(T) +  factor(N) +  factor(M) | OS, data=data)
    
    table 
    

      

    原文链接:https://cloud.tencent.com/developer/article/1588907

     
  • 相关阅读:
    HTTP权威指南笔记-1.概述
    C# 设计模式之工厂模式(一)
    C# 读取Excel内容
    C# 反射
    C# 分部类与分部方法
    图像处理
    mysql 使用问题?
    第一节mysql 安装
    软件包管理
    第四节基础篇
  • 原文地址:https://www.cnblogs.com/cxy-0902/p/12703751.html
Copyright © 2011-2022 走看看