R科研作图学习小组

http://group.keyangou.com/RGraph
组长: 管理员:
  • 访问次数:15625
  • 小组等级:8
  • 话题:567
  • 回答:34
  • 签到:357
  • 小组排名:
  • R2-02 第六次作业 生存曲线

    真·科研狗 发布于:2017.12.12
    install.packages("survminer")
    
    install.packages("survival")
    
    library(survival)
    library(ggplot2)
    library(survminer)
    library(magrittr)
    my_df <- survfit(Surv(time,status)~sex,data=lung)
    ggsurvplot(
      my_df,
      conf.int=TRUE,
      palette = c("#E7B800", "#2E9FDF"),
      pval=TRUE,
      surv.median.line="hv",
      legend.title="sex",
      legend.labs=c("male","female"),
      risk.table=TRUE,
      ncensor.plot=TRUE)+
      ggtitle("R2-02")

    Rplot.png

     
    0条评论 37浏览 邀请回答
    沙发空缺中~

    小组告示

    科研狗 2012-2016 京ICP备16006621 科研好助手,专业的科研社交共享平台