Мне удалось создать несколько графиков на одном рисунке, используя мой код ниже. Я дал код только для двух графиков:
risksetmean_0 <- function(x){
meanvec <- rep(0,length(x))
for (i in 1:length(x)) {
meanvec[i] <- mean(ACTG175$cd40[ACTG175$days>x[i] & ACTG175$arms==0])
}
return(meanvec)
}
curve(risksetmean_0, from = 0, to= 1200, col="green", ylim=c(300,400))
risksetmean <- function(x){
meanvec <- rep(0,length(x))
for (i in 1:length(x)) {
meanvec[i] <- mean(ACTG175$cd40[ACTG175$days>x[i] & ACTG175$arms==1])
}
return(meanvec)
}
curve(risksetmean, from = 0, to= 1200, col="red", add = TRUE)
Как теперь я могу сделать то же самое, что и выше в ggplot? Принимая во внимание, что фрейм данных отличается для каждого графика. Есть предложения?