ggplot2 coord_flip（）与geom_text

Question

I'm trying to find a way to easily flip a plot annotated with geom_text(). The problem is that if I use coord_flip(), the labels are kind of not flipped.

A simple example, if I flip the plot like that:

df <- count(diamonds, cut)

ggplot(df, aes(x = cut, y = n, label = n)) +
geom_bar(stat = "identity") +
geom_text()

by adding coord_flip(), I'm getting:

I know that this could be a desired behaviour in some cases but instead of that, I need the labels on the bars to stay aligned with the bars and look more like:

Is there any solution to that?

Answer 1

You can use the angle aesthetic in geom_text , setting it to a fixed value.

ggplot(df, aes(x = cut, y = n, label = n)) +
    geom_bar(stat = "identity") +
    geom_text(angle = 270) +
    coord_flip()