Objectifs

Créer un graphique avec un nuage de 100 points au centre et des boxplot représentant la distribution en x et en y.

Méthodes

1- Lister les différentes étapes

2- Se mettre d’accord sur les étapes

3- … et enfin coder en R

Etape 01 : dessiner le graphique “à la main”

Etape 02 : faire chaque graphique

nuageP <- data.frame(x = rnorm(100), y = rnorm(100))
par(mfrow = c(1, 3))
plot(nuageP)
boxplot(nuageP$x, horizontal = TRUE)
boxplot(nuageP$y)

Etape 03 : positionner les graphiques

layout(matrix(c(
  2, 1, 1, 1, 1, 
  2, 1, 1, 1, 1, 
  2, 1, 1, 1, 1, 
  2, 1, 1, 1, 1, 
  0, 3, 3, 3, 3
), ncol = 5))
par(mar = c(4, 4, 1, 1))
plot(nuageP)
par(mar = c(2, 4, 1, 1))
boxplot(nuageP$x, horizontal = TRUE)
par(mar = c(4, 1, 1, 1))
boxplot(nuageP$y)

Etape 03 : positionner les graphiques

Objectifs

Faire quelques graphiques à partir des données de prénoms.

exercices libres

bddPrenoms <- read.table("./DATA/Prenoms.csv", 
  header = TRUE, sep = ";", dec = ".")
names(bddPrenoms)

## [1] "X01_prenom"    "X02_genre"     "X03_langage"   "X04_frequence"

str(bddPrenoms)

## 'data.frame':    11620 obs. of  4 variables:
##  $ X01_prenom   : Factor w/ 11617 levels "aaliyah","aapeli",..: 1 2 3 4 5 7 6 8 9 10 ...
##  $ X02_genre    : Factor w/ 4 levels "f","f,m","m",..: 1 3 3 4 3 3 3 3 3 3 ...
##  $ X03_langage  : Factor w/ 654 levels "","?","african",..: 132 269 269 131 269 602 136 269 269 269 ...
##  $ X04_frequence: num  0 0 0 0 0 0 1.37 0 0 0 ...

exercices libres

barplot(bddPrenoms$X04_frequence, names = bddPrenoms$X01_prenom, las = 3)

exercices libres

bddPrenoms <- bddPrenoms[order(bddPrenoms$X04_frequence),]
barplot(bddPrenoms$X04_frequence, names = bddPrenoms$X01_prenom, las = 3)

exercices libres

bddPrenoms <- bddPrenoms[order(
  bddPrenoms$X04_frequence, decreasing = TRUE),]
barplot(bddPrenoms$X04_frequence, names = bddPrenoms$X01_prenom, las = 3)

exercices libres

barplot(
  bddPrenoms$X04_frequence[bddPrenoms$X03_langage == "french"], 
  names = bddPrenoms$X01_prenom[bddPrenoms$X03_langage == "french"], 
  las = 3)

exercices libres

barplot(
  head(bddPrenoms$X04_frequence[bddPrenoms$X03_langage == "french"], 20),
  names = head(
    bddPrenoms$X01_prenom[bddPrenoms$X03_langage == "french"], 20), 
  las = 3)

exercices libres

myCol = head(bddPrenoms$X02_genre[bddPrenoms$X03_langage == "french"], 20)
# print(myCol)
myCol <- gsub(myCol, pattern = "m", replacement = "lightblue")
myCol <- gsub(myCol, pattern = "f", replacement = "pink")
myCol <- gsub(myCol, pattern = "m,f|f,m", replacement = "lightgreen")
# print(myCol)
barplot(
  head(bddPrenoms$X04_frequence[bddPrenoms$X03_langage == "french"], 20),
  names = head(
    bddPrenoms$X01_prenom[bddPrenoms$X03_langage == "french"], 20), 
  las = 3, col = myCol)

exercices libres

exercices libres

xPos <- barplot(
  head(bddPrenoms$X04_frequence[bddPrenoms$X03_langage == "french"], 20),
  names = head(
    bddPrenoms$X01_prenom[bddPrenoms$X03_langage == "french"], 20), 
  las = 3, col = myCol, ylim = c(0, 200))
text(x = xPos, 
  y = head(
    bddPrenoms$X04_frequence[bddPrenoms$X03_langage == "french"], 20),
  labels = round(head(
    bddPrenoms$X04_frequence[bddPrenoms$X03_langage == "french"], 20)),
  pos = 3)

exercices libres