如何更改 ggsurvplot 中所有元素的字体？

Question

我使用以下代码绘制了 Kaplan-Meier 生存曲线和相应的风险表。我希望绘图和表格的所有元素都具有 Arial 12 号字体。

library(survival)
library(survminer)
data(lung)

fit <- survfit(Surv(time, status) ~ sex, data = lung)

png(filename="./plots/lung.sohelp.font.png", width = 6.5, height = 6.5, units = 'in', res=150)     

ggsurvplot(fit, title="Survival by Sex in 'lung' Data", xlab = "Follow Up Time (Days)",
conf.int = FALSE, 
pval=TRUE, 
pval.method=TRUE, 
risk.table=TRUE,
risk.table.pos="out",
risk.table.col="black",
risk.table.y.text.col=FALSE,
tables.theme = theme_cleantable(),
legend.labs=c("Male","Female"),
font.tickslab = c(12),
legend.title="Sex",
ggtheme = theme_classic2(base_size=12, base_family = "Arial"),
           font.family = "Arial"
   )

dev.off()

我注意到关于这个情节的一些事情：
1. 风险表中的男/女标签小于“风险数字”字体。
2. 图例和轴字体看起来比主标题和 p 值字体小。
2.情节和风险表中的数字看起来不像Arial字体。
3. 如果没有选项font.tickslab = c(12)，刻度线太小。这对于ggtheme 选项来说似乎是多余的。

如何将相同的字体（Arial，12）应用于绘图和风险表的所有元素？谢谢。

Answer 1

编辑

如果您使用的是 Windows，则可能需要在运行代码之前安装字体 (Changing fonts in ggplot2)：

library(extrafont)
font_import()
loadfonts(device = "win")      
windowsFonts()            

现在，

$Arial
[1] "Arial"

应该在列表中。

library(survival)
library(survminer)
data(lung)

fit <- survfit(Surv(time, status) ~ sex, data = lung)

p <- ggsurvplot(fit, title="Survival by Sex in 'lung' Data", xlab = "Follow Up Time (Days)",
  conf.int = FALSE, 
  pval=TRUE, 
  pval.method=TRUE, 
  risk.table=TRUE,
  risk.table.pos="out",
  risk.table.col="black",
  risk.table.y.text.col=FALSE,
  tables.theme = theme_cleantable(),
  legend.labs=c("Male","Female"),
  font.tickslab = c(12),
  legend.title="Sex",
  ggtheme = theme_classic2(base_size=12, base_family = "Arial"),
           font.family = "Arial"
)
ggpar(p, 
      font.main = c(12, "bold"),
      font.x = c(12, "bold"),
      font.y = c(12, "bold"),
      font.caption = c(12, "bold"), 
      font.legend = c(12, "bold"), 
      font.tickslab = c(12, "bold"))