Come aggiungere una linea orizzontale sopra un grafico a barre usando ggplot?

Question

Vorrei aggiungere una linea orizzontale sopra un grafico a barre. Attualmente sono in grado di aggiungere punti utilizzando geom_points:

data <- ddply(diamonds, .(cut, color), summarise, mean_carat = mean(carat)) 
ggplot(data, aes(color, mean_carat,fill=cut)) + 
geom_bar(stat="identity", position="dodge") + 
geom_point(data=data, aes(color, mean_carat, fill=cut)) 

La freccia rossa nell'immagine qui sotto mostra cosa vorrei aggiungere:

Grazie!

Answer 1

tenta di aggiungere qualcosa di simile

data <- ddply(diamonds, .(cut, color), summarise, mean_carat = mean(carat)) 
data2 <- ddply(data, ~color, summarise, max_carat = max(mean_carat)) 
C <- merge(data,data2, by = c('color')) 

    ggplot(data, aes(color, mean_carat,fill=cut)) + 
     geom_bar(stat="identity", position="dodge") + 
     geom_point(data=data, aes(color, mean_carat)) + 
     geom_errorbar(data = C, aes(y=max_carat, ymax=max_carat, ymin=max_carat))