绘制生存对象：图例格式

Question

这是我的例子

import zeroFill = require('zero-fill');

以下是情节的样子：

我也试过

library(survival)
fit <- survfit(Surv(time, status) ~ sex, data = lung)
plot(fit, col=c("orange","purple"), lty=c(1:2), lwd=3, # base with some customization
     conf.int = TRUE, xmax = 2000)
# add a legend
legend(100, .2, c("Ovarian Cancer", "Breast Cancer"), 
       lty = c(1:2), col=c("orange","purple"))

传奇看起来只是略微好看

有人知道如何修复传奇吗？

更新我在Win 7上，R是3.3.3