Je souhaite créer un graphe par fichier .csv, sachant que tous ces graphes seront sur une seule page et que les fichiers .csv ont tous exactement la même structure. Je donne un exemple pour 12 fichiers csv, donc 12 graphes sur une même page.
Le programme suivant fonctionne bien, mais j'aimerais qu'il fonctionne quelque soit le nombre de fichiers csv, donc de façon automatisée...dans cet exemple, je sais que j'ai 12 fichiers, donc je créer facilement la variable '"seuil" puis par(mfrow=c(4,3)), mais comment faire si on a plus de 30 fichiers par exemple, sans avoir à écrire 30 fois seuil1....seuil30 dans seuil?
Code : Tout sélectionner
library(lattice)
#lecture dans le repertoire de tous les fichiers csv : data_penalites_2013_j1.csv.....data_penalites_2013_j12.csv
fichiers <- list.files(wd_envt_travail, pattern=".csv")
numfiles <- length(fichiers)
load.file <- function(fichiers) {
d <- read.csv(fichiers, stringsAsFactors=FALSE, sep=";")
d
}
seuil <- c("seuil1", "seuil2", "seuil3", "seuil4","seuil5","seuil6","seuil7","seuil8","seuil9","seuil10","seuil11","seuil12")
data <- lapply(fichiers, load.file)
names(data) <- seuil
sapply(data, nrow)
par(mfrow = c(4, 3))
for (i in seuil) {
plot(data[[i]]$hauteur_epi_1, data[[i]]$hauteur_epi_2, ylim=c(0,15), xlim=c(0,15),
main = paste("", i, split = ""), ylab="H_E1C 2",xlab="H_E1C 1",
)
rmse <-signif(sqrt(sum((data[[i]]$hauteur_epi_1 - data[[i]]$hauteur_epi_2)^2)/length(data[[i]]$hauteur_epi_1)),3)
text(x=9,y=2,labels=paste("RMSE=",rmse,sep=""),col="red")
text(x=11,y=14,labels="1:1",col="grey45")
abline(0,1,col="grey45")
}
Merci d'avance pour les bons conseils....