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

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