Как я могу добавить легенду после того как я использовал линии()

Question

первый я сделать СИФ сюжет:

cmprsk:::plot.cuminc(forplot,ylim=c(0, 0.04),curvlab="CIF",main="Curves for Failure Hematologic P=(0:1) ") 

затем добавляю 1-км кривая а

fitcs1=survfit(Surv(hem_free, hem_censor2)~1) 
lines(fitcs1,fun='event',lty=2:3,lwd=0.5,mark.time=FALSE,legend="e") #"event" plots cumulative events (f(y) = 1-y) 

Я задаюсь вопросом, почему есть нет легенды для кривой 1-KM

Я попытался использовать legend("topleft",c("1-KM curve"),lty=2:3,lwd=0.5), но я не могу удалить ярлык, который у меня был с моего первого участка.

Я буду очень уместен, если вы можете мне помочь!

Answer 1

Правильно. Вы не можете удалять элементы из графика, сделанного с базовой графикой. Если вы преуспеваете с lines, то это отличное доказательство того, что plot.cuminc использует базовую графику. Базовая графика не похожа на графику ggplot2. Не существует «осведомленности» или «объектной ориентации», которая позволяет легко закрепить новый компонент при добавлении дополнительной строки. Вероятно, вам нужно подавить первую легенду curvlab=NA, а затем создать легенду с нуля с добавленной аннотацией. Отправьте пример рабочего кода, возможно, используя один из наборов данных или примеров в cmprsk.