Bonjour Maxime, Bonjour, avec dplyr, tidyr et ggplot2 : # soit tab ton data.frame de données tab2 <- tab %>% group_by(Time_Point) %>% summarise_each(funs(mean)) %>% gather(lipoprotein, ce, -Time_Point) tab2$lipoprotein <- factor(tab2$lipoprotein, levels = unique(tab2$lipoprotein)) ggplot(tab2, aes(l...