求问如何去掉R语言绘制的KM曲线的框框

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

代码是fit <- survfit(Surv(futime, fustat) ~ risk, data = rt)summary(fit)    #?鿴??????????
ggsurvplot(fit,data=rt)
pdf(file="survival.pdf",width=5.5,height=5)
ggsurvplot( fit,
            data = rt,
            size = 1.5,# change line size
            xlab="Time (year)",
            ylab="Survival rate",
            palette = c("#E7B800", "#2E9FDF"),# custom color palettes
            conf.int = FALSE, # Add confidence interval
            pval = TRUE, # Add p-value
            risk.table = FALSE, # Add risk table
            risk.table.col = "strata",# Risk table color by groups
            risk.table.height = 0.25, # Useful to change when you have multiple groups
            ggtheme = theme_bw() #Change ggplot2 theme
            )
dev.off()

结果画出来的是。

我想把上边的框框去掉，只保留xy坐标轴，就像下图那样：。

求助各位大佬！！谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

没人回答么……自顶一下

ggtheme里面改成ggtheme = theme_classic()

caimiao0714 发表于 2019-7-31 13:43
ggtheme里面改成ggtheme = theme_classic()

万分感谢！！

caimiao0714 发表于 2019-7-31 13:43
ggtheme里面改成ggtheme = theme_classic()

那能不能再问一下，如果是下述的生存曲线程序，应该怎么做到同样的事呢？
tiff(file=paste(picDir,"\\",gene,".survival.tiff",sep=""),
       width = 14,            
       height =14,            
       units ="cm",
       compression="lzw",
       bg="white",
       res=600)
  plot(fit,
     lwd=2,
     col=c("red","blue"),
     xlab="Time (year)",
     mark.time=F,
     ylab="Survival rate",
     main=paste(gene,"(p=", pValue ,")",sep="") )
  legend("topright",
       c("High","Low"),
       lwd=2,
       col=c("red","blue"))
  dev.off()

wukequdaidef 发表于 2019-8-6 22:57
那能不能再问一下，如果是下述的生存曲线程序，应该怎么做到同样的事呢？
tiff(file=paste(picDir,"\\", ...

默认的plot函数我就不清楚了，我一般都只用ggplot2。

caimiao0714 发表于 2019-8-7 09:19
默认的plot函数我就不清楚了，我一般都只用ggplot2。

好的谢谢