Plot mehrere Fitdist Objekte in der gleichen Plot mit verschiedenen Farben?

Question

Ich habe eine Liste von fitdist Objekte, die ich mit diesem Stück Code gespeichert habe.

norm_dist_res <- list() 
for(i in 1:10) 
{ 
    x <- 1+(8000*(i-1)) 
    y <- 8000*i 
    print (x) 
    print(y) 
    norm_dist_res[[i]] = norm_dist_res[[i]] <- fitdist(data=as.vector(g_all_p$data[x:y,]), distr="norm") 

} 

Gibt es eine Möglichkeit, alle Normalverteilungen von fittest mit einer anderen Farbe extrahierten plotten zu zeigen, wie die Daten verteilt werden?

Oder allgemein wie mehrere Normalverteilungen zu visualisieren?

Answer 1

Sie schätzen die Parameter einer Normalverteilung, also zeichnen Sie die Dichten einfach auf.

## Don't no what g_all_p is, so simplifying the data 
library(fitdistrplus) 
norm_dist_res <- list() 
for(i in 1:10) 
{ 
    norm_dist_res[[i]] = norm_dist_res[[i]] <- fitdist(data=rnorm(10), distr="norm") 

} 

Dann einfach Grundstück mit lines und das Ändern der Farbe

x = seq(-5, 5, length.out=100) 
plot(x, type="n", ylim=c(0, 1), xlim=range(x)) 
for(i in 1:10) { 
    est = norm_dist_res[[i]]$estimate 
    lines(x, dnorm(x, est[1], est[2]), col="grey90") 
} 

Um