sexe = c("homme","femme","femme","homme","homme") math = c(10,12,5,9,13) anglais = c(5,13,7,12,5) tab = data.frame(math,anglais,sexe) rownames(tab) = c("Alfred", "Berthe", "Carole", "Didier", "Eric") tab$moyenne = (tab$math + tab$anglais)/2 tab$avis = as.factor(ifelse(tab$moyenne<10,"recale","admis")) library(R2HTML) setwd("C:/Documents and Settings/raffinat") # répertoire à adapter nomfichier = "rapport1" # à adapter HTMLInitFile(outdir=getwd(), filename=nomfichier, useLaTeX=FALSE, useGrid=FALSE) HTML.title("Un premier rapport", HR=1) HTML.title("1) Statistiques brutes", HR=2) HTML.title("1.1) Etude de la note finale", HR=3) HTML("moyenne (de la note finale) : ") HTML(mean(tab$moyenne,na.rm=T)) HTML("ecart-type (de la note finale) : ") HTML(sd(tab$moyenne,na.rm=T)) HTML.title("1.2) Etude de l'avis", HR=3) HTML(summary(tab$avis)) HTML.title("2) Statistiques avec présentation amélioree", HR=2) HTML.title("2.1) Utilisation de la fonction paste", HR=3) phrase1 = paste("La moyenne (de la note finale) vaut", mean(tab$moyenne,na.rm=T), ".") HTML(phrase1) phrase2 = paste("L'ecart-type (de la note finale) vaut", sd(tab$moyenne,na.rm=T), ".") HTML(phrase2) tout = paste(phrase1,phrase2) HTML(tout) HTML.title("2.2) Mise en forme avec des matrices", HR=3) mat = matrix(summary(tab$avis), nrow=1) colnames(mat) = names(summary(tab$avis)) HTML(mat) HTML.title("2.3) Utilisation de balises HTML", HR=3) HTML("Si vous connaissez le langage HTML, vous pourrez améliorer la présentation, par exemple avec des listes à puce :") phrase1 = paste("La moyenne (de la note finale) vaut", mean(tab$moyenne,na.rm=T), ".") HTML( paste("
  • ",phrase1,"
  • ") ) phrase2 = paste("L'ecart-type (de la note finale) vaut", sd(tab$moyenne,na.rm=T), ".") HTML( paste("
  • ",phrase2,"
  • ") ) HTML.title("3) Graphiques", HR=2) HTML.title("3.1) Boite à moustaches de la note finale", HR=3) # creation d'un fichier graphique nommé notefinale.PNG png("notefinale.PNG") boxplot(tab$moyenne, main="note finale") dev.off() # insertion du fichier graphique dans le rapport html HTMLInsertGraph("notefinale.PNG") HTML.title("3.2) Graphe en camembert des avis", HR=3) # creation d'un fichier graphique nommé avis.PNG png("avis.PNG") pie(table(tab$avis),main="avis") dev.off() # insertion du fichier graphique dans le rapport html HTMLInsertGraph("avis.PNG") HTML.title("3.3) Regroupement de 2 graphiques", HR=3) # creation d'un fichier graphique nommé groupe.PNG png("groupe.PNG") par(mfrow=c(1,2)) # 2 graphiques sur 1 ligne et 2 colonnes boxplot(tab$moyenne, main="note finale") pie(table(tab$avis),main="avis") par(mfrow=c(1,1)) # pour les prochains graphiques dev.off() # insertion du fichier graphique dans le rapport html HTMLInsertGraph("groupe.PNG") HTMLEndFile()