R語言繪圖練習(xí)03--生存曲線繪制

本系列課程要求大家有一定的R語言基礎(chǔ)耙替,對于完全零基礎(chǔ)的同學(xué),建議去聽一下師兄的《生信必備技巧之——R語言基礎(chǔ)教程》曹体。本課程將從最基本的繪圖開始講解俗扇,深入淺出的帶大家理解和運用強大而靈活的ggplot2包。內(nèi)容包括如何利用ggplot2繪制散點圖箕别、線圖铜幽、柱狀圖、添加注解究孕、修改坐標(biāo)軸和圖例等啥酱。

本次課程所用的配套書籍是:《R Graphic Cookbooks》

除了以上的基本圖形外,師兄還會給大家講解箱線圖厨诸、提琴圖镶殷、熱圖、火山圖微酬、氣泡圖绘趋、桑基圖颗管、PCA圖等各種常用的生信圖形的繪制陷遮,還不趕緊加入收藏夾,跟著師兄慢慢學(xué)起來吧垦江!

R語言繪圖練習(xí)03 -- 生存曲線繪制:

生存分析研究的是某個事件發(fā)生之前過去的時間帽馋,在臨床研究中最常見的應(yīng)用就是死亡率的估計(預(yù)測患者的生存時間),不過生存分析也可以應(yīng)用于其他領(lǐng)域如機械故障時間等比吭。

在R中绽族,survival包中有很多函數(shù)可以對生存數(shù)據(jù)進(jìn)行建模,可以使用survfit()函數(shù)來估計刪失數(shù)據(jù)的生存曲線衩藤,在survminer包中吧慢,使用ggsurvplot()函數(shù)用來繪制Kaplan-Meier生存曲線。

今天就來學(xué)習(xí)在R中使用ggsurvplot()函數(shù)繪制Kaplan-Meier生存曲線赏表。

生存曲線01

代碼實現(xiàn):

########加載這幾個做生存分析需要用到的包
library(survival)
library(dplyr)
library(survminer)

# 加載我的數(shù)據(jù)
d <- lung
head(d)

# 創(chuàng)建生存模型
# time對應(yīng)生存時間检诗,status就是事件的狀態(tài)拉匈仗,~sex就是分組,如果你用性別來分組逢慌,
# 就把你的性別那一列的列名換掉我的“group”悠轩,data就是你的數(shù)據(jù)名
fit <- survfit(Surv(time, status) ~ sex, data = d) 
fit

ggsurvplot(fit, pval = TRUE,
           conf.int = T,
           conf.int.style="ribbon",
           surv.median.line = "hv", # 增加中位生存時間
           conf.int.alpha=0.1, #顯示置信區(qū)間
           palette = "jco", # 設(shè)置顏色模式:可選調(diào)色板有 "grey","npg","aaas","lancet","jco","ucscgb","uchicago","simpsons"和"rickandmorty".
           risk.table = TRUE # 添加風(fēng)險表;
           )
生存曲線02

往期文章

  1. R語言繪圖(ggplot2涕癣、ggpurb)從入門到精通01--課程介紹
  2. R語言繪圖(ggplot2哗蜈、ggpurb)從入門到精通02--柱狀圖和直方圖
  3. R語言繪圖(ggplot2、ggpurb)從入門到精通03--箱式圖和函數(shù)圖像
  4. R語言繪圖(ggplot2坠韩、ggpurb)從入門到精通04--柱狀圖美化之調(diào)色
  5. R語言繪圖(ggplot2距潘、ggpurb)從入門到精通05--柱狀圖美化之分組修改
  6. R語言繪圖(ggplot2、ggpurb)從入門到精通06--柱狀圖美化之寬度調(diào)節(jié)
  7. R語言繪圖從入門到精通07--柱狀圖美化之如何加標(biāo)簽
  8. R語言繪圖練習(xí)01 -- 各種類型的餅圖
  9. R語言繪圖練習(xí)02--克利夫蘭點狀圖
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末只搁,一起剝皮案震驚了整個濱河市音比,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌氢惋,老刑警劉巖洞翩,帶你破解...
    沈念sama閱讀 219,188評論 6 508
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場離奇詭異焰望,居然都是意外死亡骚亿,警方通過查閱死者的電腦和手機,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,464評論 3 395
  • 文/潘曉璐 我一進(jìn)店門熊赖,熙熙樓的掌柜王于貴愁眉苦臉地迎上來来屠,“玉大人,你說我怎么就攤上這事震鹉【愕眩” “怎么了?”我有些...
    開封第一講書人閱讀 165,562評論 0 356
  • 文/不壞的土叔 我叫張陵传趾,是天一觀的道長迎膜。 經(jīng)常有香客問我,道長浆兰,這世上最難降的妖魔是什么磕仅? 我笑而不...
    開封第一講書人閱讀 58,893評論 1 295
  • 正文 為了忘掉前任,我火速辦了婚禮簸呈,結(jié)果婚禮上宽涌,老公的妹妹穿的比我還像新娘。我一直安慰自己蝶棋,他們只是感情好,可當(dāng)我...
    茶點故事閱讀 67,917評論 6 392
  • 文/花漫 我一把揭開白布忽妒。 她就那樣靜靜地躺著玩裙,像睡著了一般兼贸。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上吃溅,一...
    開封第一講書人閱讀 51,708評論 1 305
  • 那天溶诞,我揣著相機與錄音,去河邊找鬼决侈。 笑死螺垢,一個胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的赖歌。 我是一名探鬼主播枉圃,決...
    沈念sama閱讀 40,430評論 3 420
  • 文/蒼蘭香墨 我猛地睜開眼,長吁一口氣:“原來是場噩夢啊……” “哼庐冯!你這毒婦竟也來了孽亲?” 一聲冷哼從身側(cè)響起,我...
    開封第一講書人閱讀 39,342評論 0 276
  • 序言:老撾萬榮一對情侶失蹤展父,失蹤者是張志新(化名)和其女友劉穎返劲,沒想到半個月后,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體栖茉,經(jīng)...
    沈念sama閱讀 45,801評論 1 317
  • 正文 獨居荒郊野嶺守林人離奇死亡篮绿,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 37,976評論 3 337
  • 正文 我和宋清朗相戀三年,在試婚紗的時候發(fā)現(xiàn)自己被綠了吕漂。 大學(xué)時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片亲配。...
    茶點故事閱讀 40,115評論 1 351
  • 序言:一個原本活蹦亂跳的男人離奇死亡,死狀恐怖痰娱,靈堂內(nèi)的尸體忽然破棺而出弃榨,到底是詐尸還是另有隱情,我是刑警寧澤梨睁,帶...
    沈念sama閱讀 35,804評論 5 346
  • 正文 年R本政府宣布鲸睛,位于F島的核電站,受9級特大地震影響坡贺,放射性物質(zhì)發(fā)生泄漏官辈。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點故事閱讀 41,458評論 3 331
  • 文/蒙蒙 一遍坟、第九天 我趴在偏房一處隱蔽的房頂上張望拳亿。 院中可真熱鬧,春花似錦愿伴、人聲如沸肺魁。這莊子的主人今日做“春日...
    開封第一講書人閱讀 32,008評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽鹅经。三九已至寂呛,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間瘾晃,已是汗流浹背贷痪。 一陣腳步聲響...
    開封第一講書人閱讀 33,135評論 1 272
  • 我被黑心中介騙來泰國打工, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留蹦误,地道東北人劫拢。 一個月前我還...
    沈念sama閱讀 48,365評論 3 373
  • 正文 我出身青樓,卻偏偏與公主長得像强胰,于是被迫代替她去往敵國和親舱沧。 傳聞我的和親對象是個殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點故事閱讀 45,055評論 2 355

推薦閱讀更多精彩內(nèi)容