survminer包调整legend字体大小

在R语言中使用survminer包进行生存分析时，有时需要调整图例（legend）的字体大小，使其更符合需求。以下是一些调整字体大小的方法。

方法一：使用 theme() 函数

通过给 theme() 函数传递参数来调整图例的字体大小。例如，使用“legend.text”参数设置字体大小为12：

mytheme <- theme(legend.text = element_text(size = 12))

# 加载survminer包并绘制生存曲线
library(survminer)
fit <- survfit(Surv(time, status)~sex, data=lung)
ggsurvplot(fit, conf.int=TRUE, pval=TRUE, risk.table=TRUE) + 
  mytheme

在上面的代码中，我们先将theme()函数的参数存储在mytheme变量中，然后将它作为参数传递给绘制生存曲线的函数ggsurvplot()。图例的字体大小将自动调整为12。

方法二：使用 guide_legend() 函数

通过使用guide_legend()函数来调整图例字体大小。例如，使用“title”参数设置字体大小为14，然后将其作为参数传递给绘制生存曲线的函数ggsurvplot()：

myguide <- guide_legend(title = "性别", title.theme = element_text(size = 14))

# 加载survminer包并绘制生存曲线
library(survminer)
fit <- survfit(Surv(time, status)~sex, data=lung)
ggsurvplot(fit, conf.int=TRUE, pval=TRUE, risk.table=TRUE) + 
  guides(color=myguide)

在上面的代码中，我们首先将guide_legend()函数的参数存储在myguide变量中，然后使用guides()函数将其作为参数传递给绘制生存曲线的函数ggsurvplot()。

无论使用哪种方法，调整图例字体大小都是非常简单的。通过调整字体大小，我们可以更好地展示生存分析的结果，并提高其可读性。