使用ggplot格式化km.coxph.plot输出？

Question

是否可以使用ggplot格式化km.coxph.plot

km.coxph.plot(formula.s=formula(Surv(time, event) ~ gg), data.s=dd, sub.s="all", x.label="Time (years)", y.label="Survival", main.title="", sub.title="", leg.text=c("Low   ", "Intermediate   ", "High   "), leg.pos="right", leg.inset=0.05,leg.bty = "0",  o.text=FALSE, v.line=FALSE, h.line=FALSE, .col=c("darkblue", "darkgreen", "darkred"), .lty=1, show.n.risk=TRUE, n.risk.step=1, n.risk.cex=0.85, verbose=FALSE, ylim=c(0.3,1))

如何让传奇变得更小？