Legende über das überleben Grundstück

Hallo ich bin Total neu auf R. Dies ist mein Erster Versuch es. Ich produziere ein survival-plot aufgeschlüsselt nach Alter. Ich kann nicht herausfinden, wie Sie angeben, Farben für jedes Alter-Linie und legen Sie es in einer Legende. Kann mir jemand helfen?

require(survival)  # not loaded by default although installed by default
group <- age
kmsurvival1 <- survfit(Surv(as.numeric(time),event) ~ group)
plot(kmsurvival1, xlab="Time",ylab="Survival Probability", mark.time = F)
InformationsquelleAutor Chris | 2014-07-13
  1. 7

    Müssen Sie nur geben Sie einen Vektor, der die Farben in der gleichen Länge wie die Anzahl der Zeilen (also Gruppen) in Ihrer Zeichnung. Man könnte dies als 

    N <- length(unique(group))
plot(kmsurvival1, xlab="Time",ylab="Survival Probability", mark.time = F,
col=1:N)
legend(
  "topright",
  legend=unique(group),
  col=1:N,
  horiz=FALSE,
  bty='n')

    oder Sie können manuell angeben, Farben col=c('black','blue','red') (je nachdem, wie viele Farben, die Sie brauchen).

    Aus dem Beispiel in ?plot.survfit, 

    library(survival)
leukemia.surv <- survfit(Surv(time, status) ~ x, data = aml)
plot(leukemia.surv, lty = 2:3,col=3:4)
lLab <- gsub("x=","",names(leukemia.surv$strata))  ## legend labels
legend(
  "top",
  legend=lLab,
  col=3:4,
  lty=2:3,
  horiz=FALSE,
  bty='n')

    Legende über das überleben Grundstück

    • Dies funktionierte perfekt. Ich brauchte nur hinzufügen, lty=2:3 das Beispiel, das Sie mir gab. Genial.
    • Der Prozess sieht also die manuelle. Woher wissen Sie, dass survfit und unique(group) produzieren die gleiche Reihenfolge der Zeilen?
    InformationsquelleAutor nrussell
Schreibe einen Kommentar