r - 将 geom_line 和其他 ggplot 对象添加到 autoplot.survfit

Question

我正在尝试向 survMisc 生成的生存图添加额外的行，但是我无法让它工作 - 问题是最后一行。

data(kidney, package="KMsurv")
s1 <- survfit(Surv(time, delta) ~ type, data=kidney)
p1<-autoplot(s1, type="fill", survLineSize=2)
d1=data.frame(x=seq(0,20,10),y=seq(0,1,.5))
p1$plot+geom_line(data=d1,aes_string(x='x',y='y'))

Error in eval(expr, envir, enclos) : object 'st' not found

我正在使用 ggplot 版本 1.01 和 survMisc 0.4.6

Answer 1

问题是您添加的 geom_line() 图层默认继承所有以前的美学映射 - 但您的新数据框没有映射的所有列。修复起来很容易，你只需要停止继承即可:

p1$plot +
    geom_line(data = d1,
              mapping = aes_string(x='x', y='y'),
              inherit.aes = F)