Я хотел бы показать две разные совокупные кривые заболеваемости на одном графике для сравнения.
Вот минимальный пример:
set.seed(2)
ss <- rexp(100)
gg <- factor(sample(1:2,100,replace=TRUE),1:2,c('a','b'))
cc <- sample(0:2,100,replace=TRUE)
strt <- sample(1:2,100,replace=TRUE)
# Make cuminc object 1
xx <- cuminc(ss,cc,gg,strt)
set.seed(3)
ss <- rexp(100)
gg <- factor(sample(1:2,100,replace=TRUE),1:2,c('a','b'))
cc <- sample(0:2,100,replace=TRUE)
strt <- sample(1:2,100,replace=TRUE)
# Make cuminc object 2
yy <- cuminc(ss,cc,gg,strt)
#How can I plot two cuminc objects in one graph?
plot(xx+yy,lty=1,color=1:8)
Я борюсь с последней частью, как получить R два, положить все кривые в один график?
Мне нужно использовать базовую графику здесь, поэтому ggplot не вариант.
Спасибо!