# Importation du fichier png 
tulipe <- readPNG("tulipe.png") 
# Graphique
ggplot(iris) + 
aes(x = Species, 
        y = Sepal.Length, 
        fill = Species) + 
# Partie incrustation de l'image
annotation_custom(rasterGrob(tulipe,
                                        width = unit(1,"npc"), 
                                        height = unit(1,"npc")),
                                        -Inf, Inf, -Inf, Inf) + 
# On trace le graphique par dessus 
geom_boxplot() + 
theme_light() # Theme simple