如何使用R中的包（幸存者）调整风险表标题位置？

Question

我想使用幸存者创建一个带有风险数字表的Kaplan-Meier图。但是我无法调整风险表标题的位置。

那是我的代码：

library(survminer)

library(survival)

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

ggsurvplot(fit, data = lung, risk.table = TRUE, pval = TRUE, conf.int = TRUE, tables.theme = theme_cleantable())

我想将图1 更改为图2 ：