# mettre deux graphs côte-à-côte
par(mfrow = c(1,2)) #1 ligne ; 2 colonnes
hist(mi$Age)
plot(density(mi$Age))
# superposer la courbe de densité à l'histogramme
# (! aux changement d'échelle)
# (! il faut reparametrer la zone graphique avec les valeurs par defaut)
par(mfrow = c(1,1)) #1 ligne ; 1 colonne

myhist <- hist(mi$Age)
multiplier <- myhist$counts / myhist$density # pour la mise à l'échelle de la courbe de densité
mydensity <- density(mi$Age)
mydensity$y <- mydensity$y * multiplier[1] # mise à l'échelle de la courbe de densité
plot(myhist)
lines(mydensity)

# Il est peut être plus logique de laisser les densités tels quelles et d'utiliser 
# la représentation graphique de l'histogramme directement en densité
hist(mi$Age, freq = FALSE)
lines(density(mi$Age))

# equivalent du précédent graph avec ggplot2
library(ggplot2)
my_plot1 <- ggplot(data = mi, aes(Age))+
  geom_histogram(aes(y = ..density..))+ # y = ..density.. permet de representer l'histogramme en densité
  geom_density()
my_plot1

# amélioration cosmetique du graphique
my_plot2 <- ggplot(data = mi, aes(Age))+
  geom_histogram(aes(y = ..density..), fill = "grey85", color = "blue")+ # y = ..density.. permet de representer l'histogramme en densité
  geom_density(color = "orange", linetype = "dashed")+
  theme_minimal()

my_plot2

# amélioration cosmetique du graphique
my_plot3 <- ggplot(data = mi, aes(Age, ))+
  geom_histogram(aes(y = ..density..,fill = Sex))+ # y = ..density.. permet de representer l'histogramme en densité
  geom_density(color = "orange", linetype = "dashed")+
  theme_minimal()

my_plot3

# amélioration cosmetique du graphique
my_plot4 <- ggplot(data = mi, aes(Age, fill = Sex))+
  geom_histogram(aes(y = ..density..), color= "grey95")+ # y = ..density.. permet de representer l'histogramme en densité
  geom_density(color = "orange", linetype = "dashed", alpha = .5)+
  theme_minimal()

my_plot4

# amélioration cosmetique du graphique
my_plot4b <- ggplot(data = mi, aes(Age, fill = Sex))+
  geom_histogram(aes(y = ..density..), color= "grey95", position = "dodge")+ # y = ..density.. permet de representer l'histogramme en densité
  geom_density(color = "orange", linetype = "dashed", alpha = .5)+
  theme_minimal()

my_plot4b

# amélioration cosmetique du graphique
my_plot5 <- ggplot(data = mi, aes(Age, fill = Sex))+
  geom_histogram(aes(y = ..density..), color= "grey95")+ # y = ..density.. permet de representer l'histogramme en densité
  geom_density(color = "orange", linetype = "dashed", alpha = .5)+
  theme_minimal()+
  facet_wrap(~Sex)
my_plot5

# arrange plots
library(gridExtra)
grid.arrange(my_plot4b+guides(fill = FALSE), my_plot5, ncol = 2, nrow = 1, widths = c(5, 7))