如何abline功能適用於情節的列表中的R

Question

我使用此代碼地塊的列表（代碼是我的最後一個問題的答案。

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]])) 
    ) 

我想。一個行添加到列表中的每個情節我嘗試這樣的代碼：

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"))) 

的代碼只是工作的最後一個陰謀哪裏是我的問題的任何幫助，請

？

Answer 1

繪製直方圖和垂直線相互

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) 

注意後，立即給你另一個問題，你mean_par2和true_par2值分別爲您的直方圖值的範圍之外。