将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'))

eval中的错误(expr，环境，附件)：找不到对象'st‘

我使用的是GggketVersion1.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)