Code : Tout sélectionner
dta %>%
mutate(Sp = sub("Dsuz.*$", "Dsuz", Sp)) %>%
group_by_at(1:7) %>%
summarise(Nb = sum(Nb))
Code : Tout sélectionner
library(ggplot2)
ggplot(data = Photo, aes(x = Annee, weight = Nombre))+
geom_bar(fill="darkred")
Code : Tout sélectionner
matplot(test_SPD_SL[1], test_SPD_SL[-1], type = "l")
Code : Tout sélectionner
ggplot(TheResults, aes(x = X, y = diff)) +
geom_hline(yintercept=0, linetype = "dotted") +
geom_linerange(aes(ymin = lwr, ymax = upr)) +
geom_point() +
coord_flip()