Moyenne des facteurs sur R avec GGPLOT

Bonjour,

Je démarre en R et j'aurais besoin d'un petit coup de pouce ! J'essaye de réaliser un graphique en barre avec la moyenne de facteurs.

J'ai 2 colonnes :

Col1 avec des valeurs qualitatives à factoriser : rouge, noir, bleu
Col2 avec des valeurs quantitatives donc je souhaite obtenir la moyenne

Voici ce que j'ai pu initier, mais j'obtiens la moyenne globale...


library(ggplot2)
BDD$Col1 <- as.factor(BDD$Col1)​
moy <- mean(BDD$Col2, na.rm = TRUE)​
table_couleur <- data.frame(couleur = BDD$Col1, moyenne = moy)​
ggplot(BDD, aes(x = Col1, fill = moyenne)) + ​
geom_bar() + ​
xlab("Couleur") +​
ylab("Moyenne par couleur")

Avec pour résultat souhaité :
(agrégé) Moyenne associée
Rouge
Noir
Bleu
...


Merci beaucoup pour votre aide !
Cordialement, :D