R語言一鍵制作Table 1,就是這么簡單想诅!

轉(zhuǎn)自醫(yī)學(xué)方

2019-07-4 Alexander

流行病學(xué)或者醫(yī)學(xué)論文中召庞,對研究對象基本情況的描述通常以表格的形式進(jìn)行,并且放在結(jié)果部分的開頭来破,即Table 1篮灼,主要內(nèi)容是研究對象一般情況和研究變量或協(xié)變量的分組展示。

前幾天文章修回過程中徘禁,花了兩天時間分析數(shù)據(jù)诅诱,修改文章,其中有近1天的時間都在手動錄入數(shù)據(jù)(從R studio里把分析結(jié)果整理到Excel或者word)晌坤,這樣除了花費時間外逢艘,還非常容易出錯。之前一直想找時間通過R markdown把制作表格的過程程序化骤菠,可是效果并不理想。

這次痛定思痛疤孕,先從table 1開始商乎,發(fā)現(xiàn)了幾個不錯的方法。其中一種個人覺得可讀性和可編輯性都比較強(qiáng)祭阀,于是學(xué)習(xí)了一下鹉戚,作為一個非常實用的工具分享給大家。

這里主要參考一篇博客Fast-track publishing using knitr: table mania专控,對細(xì)節(jié)進(jìn)行了加工和注釋抹凳。

1數(shù)據(jù)的準(zhǔn)備

數(shù)據(jù)主要來自于boot包的melanoma。加載后伦腐,看下數(shù)據(jù)的基本結(jié)構(gòu)赢底。

image

接下來對數(shù)據(jù)進(jìn)行簡單的整理,為后續(xù)分析做準(zhǔn)備柏蘑;

將分類變量定義為因子型并設(shè)置標(biāo)簽(這里建議設(shè)置一個新的變量幸冻,僅用于table 1的制作,不影響后續(xù)的分析)咳焚;

image

2安裝和加載R包 Gmisc

image

后面兩個包是加載“Gmisc”時要求加載的洽损。

3自定義函數(shù)、制作表格

根據(jù)已有函數(shù)自定義函數(shù)革半,并制作表格碑定。定義一個函數(shù)流码,輸入數(shù)據(jù)集的變量并得到該變量的統(tǒng)計結(jié)果:

image

函數(shù)定義完成后,建立一個空的列表延刘,以儲存每個變量的分析結(jié)果漫试,并進(jìn)行分析,將結(jié)果儲存在列表中:

image

將所有結(jié)果merge到一個矩陣中访娶,并建立rgroup(table1第一列的變量名) 和 n.rgroup(table 1第一列每個變量的行數(shù)):

image

然后就一鍵生成html表格啦

image

結(jié)果如下:

image

當(dāng)然商虐,有些情況下,需要多加一個分組標(biāo)題欄(column spanner)崖疤,該怎么加呢秘车?

如下:

image

結(jié)果如下:

image

4導(dǎo)出結(jié)果

image

在R studio viewer窗口點擊白色按鈕,即可在瀏覽器中打開劫哼,然后復(fù)制粘貼到word可以進(jìn)一步加工修飾叮趴。

是不是很刺激呢。
應(yīng)該還有其他的導(dǎo)出方法权烧,不過這個已經(jīng)很方便了眯亦。

拓展功能選

⒈ 二分類變量只顯示一個(比如男性和女性)。只要在getDescriptionStatsBy的"show_all_values"參數(shù)設(shè)置為FALSE即可般码;

⒉ 顯示缺失值妻率。getDescriptionStatsBy的"useNA"參數(shù)設(shè)置為"ifany",表示如果有缺失值就顯示缺失值情況板祝;如設(shè)置為“no”宫静,表示始終不顯示缺失值情況;“always”則表示無論是否有缺失值都顯示缺失值情況券时;

⒊ Total一列是可以去掉的孤里,getDescriptionStatsBy的"add_total_col"參數(shù)設(shè)置為FALSE即可。

不足之處

⒈ 差異性檢驗是采用非參的方法橘洞,雖然沒有錯捌袜,但是一般符合參數(shù)檢驗條件的數(shù)據(jù)還是要使用參數(shù)檢驗的方法,這里可以自行檢驗后再修改P-value炸枣;

⒉ Mean (SD)的展示形式有個括號感覺有點別扭虏等,還不知道怎么去掉,有方法的小伙伴歡迎分享交流抛虏。

另外有一些其他的制作table 1的R包博其,比如table 1(R包的名字)包,tableone包迂猴,還有其他生成表格的R包(plyr等)慕淡,個人瀏覽下來感覺這個最容易理解和掌握,其他包的功能有興趣的可以再自行挖掘?qū)Ρ取?/p>

原文鏈接:https://mp.weixin.qq.com/s?src=11&timestamp=1562230826&ver=1707&signature=Og8lYPNfFi99QvnQb8OAtkTIo75N9G0JHqvpXxLS5aRpqRcnlgtxXJAMtfgxB8kAK8vinKSxdO6A1qxNy-4k8AyE9wUMYKSarBLDydWO-vazmCNPJIAa5GfaBiFIghaO&new=1

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末沸毁,一起剝皮案震驚了整個濱河市峰髓,隨后出現(xiàn)的幾起案子傻寂,更是在濱河造成了極大的恐慌,老刑警劉巖携兵,帶你破解...
    沈念sama閱讀 222,807評論 6 518
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件疾掰,死亡現(xiàn)場離奇詭異,居然都是意外死亡徐紧,警方通過查閱死者的電腦和手機(jī)静檬,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 95,284評論 3 399
  • 文/潘曉璐 我一進(jìn)店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來并级,“玉大人拂檩,你說我怎么就攤上這事〕氨蹋” “怎么了稻励?”我有些...
    開封第一講書人閱讀 169,589評論 0 363
  • 文/不壞的土叔 我叫張陵,是天一觀的道長愈涩。 經(jīng)常有香客問我望抽,道長,這世上最難降的妖魔是什么履婉? 我笑而不...
    開封第一講書人閱讀 60,188評論 1 300
  • 正文 為了忘掉前任煤篙,我火速辦了婚禮,結(jié)果婚禮上毁腿,老公的妹妹穿的比我還像新娘舰蟆。我一直安慰自己,他們只是感情好狸棍,可當(dāng)我...
    茶點故事閱讀 69,185評論 6 398
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著味悄,像睡著了一般草戈。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上侍瑟,一...
    開封第一講書人閱讀 52,785評論 1 314
  • 那天唐片,我揣著相機(jī)與錄音,去河邊找鬼涨颜。 笑死费韭,一個胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的庭瑰。 我是一名探鬼主播星持,決...
    沈念sama閱讀 41,220評論 3 423
  • 文/蒼蘭香墨 我猛地睜開眼,長吁一口氣:“原來是場噩夢啊……” “哼弹灭!你這毒婦竟也來了督暂?” 一聲冷哼從身側(cè)響起揪垄,我...
    開封第一講書人閱讀 40,167評論 0 277
  • 序言:老撾萬榮一對情侶失蹤,失蹤者是張志新(化名)和其女友劉穎逻翁,沒想到半個月后饥努,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 46,698評論 1 320
  • 正文 獨居荒郊野嶺守林人離奇死亡八回,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 38,767評論 3 343
  • 正文 我和宋清朗相戀三年酷愧,在試婚紗的時候發(fā)現(xiàn)自己被綠了。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片缠诅。...
    茶點故事閱讀 40,912評論 1 353
  • 序言:一個原本活蹦亂跳的男人離奇死亡溶浴,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出滴铅,到底是詐尸還是另有隱情戳葵,我是刑警寧澤,帶...
    沈念sama閱讀 36,572評論 5 351
  • 正文 年R本政府宣布汉匙,位于F島的核電站拱烁,受9級特大地震影響,放射性物質(zhì)發(fā)生泄漏噩翠。R本人自食惡果不足惜戏自,卻給世界環(huán)境...
    茶點故事閱讀 42,254評論 3 336
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望伤锚。 院中可真熱鬧擅笔,春花似錦、人聲如沸屯援。這莊子的主人今日做“春日...
    開封第一講書人閱讀 32,746評論 0 25
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽狞洋。三九已至弯淘,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間吉懊,已是汗流浹背庐橙。 一陣腳步聲響...
    開封第一講書人閱讀 33,859評論 1 274
  • 我被黑心中介騙來泰國打工, 沒想到剛下飛機(jī)就差點兒被人妖公主榨干…… 1. 我叫王不留借嗽,地道東北人态鳖。 一個月前我還...
    沈念sama閱讀 49,359評論 3 379
  • 正文 我出身青樓,卻偏偏與公主長得像恶导,于是被迫代替她去往敵國和親浆竭。 傳聞我的和親對象是個殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點故事閱讀 45,922評論 2 361