, wie man abline Funktion auf eine Liste von Grundstück in R

Question

Ich habe eine Liste von Plots mit diesem Code (der Code ist eine Antwort auf meine letzte Frage.

the last question

xxxy <- as.data.frame(matrix(runif(1e3), ncol = 10)) 
names(xxxy) <- paste0('V', 1:10) 

nam <- names(xxxy) 



    par(mfrow = c(2, 5)) 
    out_par<- lapply(seq_along(nam), function(i) 
      hist(xxxy[[i]],main = paste("Histogram of", nam[[i]])) 
    ) 

gelten würde Ich mag . hinzuzufügen, um eine Linie zu jeder Parzelle der Liste habe ich versucht, diesen Code:

mean_par2 <- list(2.3,4.5,3.2,4.6,2,1.5,1.2,1.8,2.5,2) 
true_par2 <- list(2,4.2,3,4.5,2,1.2,1,1.79,2.55,1.89) 
lapply(seq_along(out_par), function(i) abline(v=c(mean_par2[[i]],true_par2[[i]]),col=c("red","blue"))) 

der Code nur für die letzte Handlung gearbeitet Wo ist mein Problem jede Hilfe bitte

? sofort

Answer 1

Plot das Histogramm und vertikale Linien hintereinander

set.seed(1) 
mean_par2 <- runif(10)*0.8 
true_par2 <- runif(10)*0.8 
par(mfrow = c(2, 5)) 
mapply(function(x, y, z) {hist(x); abline(v=c(y,z),col=c("red","blue"))}, xxxy, mean_par2, true_par2) 

HINWEIS Sie hatte ein anderes Problem in, dass Ihre mean_par2 und true_par2 Werte außerhalb des Bereichs des Histogramms Werte waren.