添加标题到ggsurvplot

Question

我想为ggsurvplot添加标题。这是我的代码：

library(survival)
library(survminer)

fit <- survfit(Surv(time, status) ~ sex, data = lung)
ggsurvplot(fit, data =lung, main = "This is title")

它生成情节，但没有标题。如果添加risk.table = TRUE，那么我会在风险表的顶部获得标题，但不会获得主要情节。

library(survival)
library(survminer)

fit <- survfit(Surv(time, status) ~ sex, data = lung)
ggsurvplot(fit, data =lung, main = "This is title", 
           risk.table = TRUE)

知道怎么解决吗？

Answer 1

使用title =拨打标题，而不是main =。

ggsurvplot(fit, data =lung, title = "This is title", 
           risk.table = TRUE)

Output_Link_Here as I guess I'm too new to embed

Answer 2

如果您想将标题居中并将字体类型更改为粗体和/或对ggplot主题进行其他更改，请使用+ theme()：

ggtheme = theme_minimal() + theme(plot.title = element_text(hjust = 0.5, face = "bold"))