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