library(ggplot2)
ggplot(data.frame(x = c(0, 1200)), aes(x = x)) +
stat_function(fun = dgamma, args = list(shape = 2, rate = 0.005),
aes(color = « k = 2 (Asymétrie sévère) »), linewidth = 1.2) +
stat_function(fun = dgamma, args = list(shape = 4, rate = 0.010),
aes(color = « k = 4 (Asymétrie modérée) »), linewidth = 1.2) +
stat_function(fun = dgamma, args = list(shape = 10, rate = 0.025),
aes(color = « k = 10 (Quasi-normalité) »), linewidth = 1.2) +
scale_color_manual(name = « Paramétrisation »,
values = c(« k = 2 (Asymétrie sévère) » = « #D95F02 »,
« k = 4 (Asymétrie modérée) » = « #7570B3 »,
« k = 10 (Quasi-normalité) » = « #1B9E77 »)) +
labs(x = « Temps de réaction (ms) »,
y = « Densité de probabilité »,
title = « Évolution morphologique de la loi Gamma à moyenne constante »,
subtitle = « Espérance mathématique théorique fixée à E(X) = 400 ms ») +
theme_classic(base_size = 13) +
theme(legend.position = « top »,
plot.title = element_text(face = « bold », size = 14),
axis.title = element_text(face = « bold »))
