r - 更改风险表图例的字体大小

Question

# Create plots
library(survival)
library(survminer)
data(lung)
fit <- survfit(Surv(time, status) ~ sex, data = lung)
ggsurv <- ggsurvplot(fit, risk.table = TRUE,
                     tables.theme = clean_theme())

如何增加风险表层的字体大小？
谢谢!

Answer 1

所以经过长时间的搜索，我仍然找不到解决此问题的方法，但我能够找到合适的解决方法，并最终找到答案!!!
一、解决方法:
我没有在无法增加大小的表层中使用文本，而是将其更改为简单的线条颜色，如下所示:

fit <- survfit(Surv(time, status) ~ sex, data = lung)
ggsurv <- ggsurvplot(fit, risk.table = TRUE,
                     tables.theme = clean_theme())
ggsurv$table <- ggrisktable(fit, 
                             data = severeTRdb, 
                             color = "strata", 
                             y.text = F,   ylab = "",  xlab = "",
                             tables.theme = theme_cleantable(),
)
ggsurv

第二个——答案:

fit <- survfit(Surv(time, status) ~ sex, data = lung)
ggsurv <- ggsurvplot(fit, risk.table = TRUE,
                     tables.theme = clean_theme())
ggsurv$table <- ggrisktable(fit, 
                             data = severeTRdb, 
                             color = "strata", 
                             y.text = F,   ylab = "",  xlab = "",
                             tables.theme = theme_cleantable(),
                            font.tickslab = c(20, "bold")
)
ggsurv