如何为ComparisonSurv包的Survival.plot生存曲线添加标题？

我使用ComparisonSurv包中的Survival.plot函数绘制了对比生存曲线，希望为该图添加标题，请问是否可以通过该函数实现此需求？以下是我的代码：

library(ComparisonSurv)

Survival.plot(
  dat$Primary.to.outcomes..Years., 
  dat$Censor, 
  dat$Cemented.Stem., 
  xlab = "Time (Years)", 
  ylab = "Survival", 
  col = c(1, 4), 
  lwd = c(3, 3), 
  lty= c(1, 1)
)
legend(
  2.5, 
  1, 
  c("no", "yes"), 
  col = c(1, 4), 
  lwd = c(3, 3), 
  lty= c(1, 1), 
  bty="n"
)

ComparisonSurv包的Survival.plot函数本身没有内置参数直接设置图标题，不过可以通过以下简单方式添加标题：

方法：用基础绘图的title()函数补加标题 #

在调用Survival.plot绘制完成后，直接调用R基础绘图系统的title()函数即可添加自定义标题，示例修改后的代码如下：

library(ComparisonSurv)

Survival.plot(
  dat$Primary.to.outcomes..Years., 
  dat$Censor, 
  dat$Cemented.Stem., 
  xlab = "Time (Years)", 
  ylab = "Survival", 
  col = c(1, 4), 
  lwd = c(3, 3), 
  lty= c(1, 1)
)
# 添加标题，可按需调整字体大小、颜色等参数
title(main = "不同骨水泥柄的生存曲线对比", col.main = "black", cex.main = 1.2)
legend(
  2.5, 
  1, 
  c("no", "yes"), 
  col = c(1, 4), 
  lwd = c(3, 3), 
  lty= c(1, 1), 
  bty="n"
)

内容的提问来源于stack exchange，提问作者Sarah