R言語描画3行テーブル

記事を書くときは常にいくつかの表を描く必要がありますが、もちろん最も標準的な表は3行の表です。私は通常、単語を使用して3行の表を描画しますが、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 [az] +"）
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 [HZ] +"）、 
                         side = c（ "両方」、「左」、「右」））

data $ stage <-ifelse（data $ stage1 == "X"、 ''、data $ stage1）


data $ stage 

colnames（data）

data $ Age <-ifelse（data $ Age> 60、 '> 60'、 '< = 60 '）

テーブル（データ$年齢）

テーブル（データ$ OS）



##対象となる変数の因数分解
データ$ OS < -factor 
  （データ$ OS、
         レベル= c（0,1）、
         ラベル= c（ "Alive"、＃参照グループとして最初の
                  "Death"））
テーブル<-table1（〜因子（性別）+因子（年齢）+因子（ステージ）+ 
         因子（T）+因子（N）+因子（M ）| OS、データ=データ）

テーブル

　　

元のリンク：https : //cloud.tencent.com/developer/article/1588907