ggplot2 coord_flip（）与geom_text

Question

我正试图找到一种方法来轻松翻转使用geom_text（）注释的绘图。问题是如果我使用coord_flip（），标签就不会被翻转了。

一个简单的例子，如果我像这样翻转图：

df <- count(diamonds, cut)

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

通过添加coord_flip（），我得到：

我知道在某些情况下这可能是一种理想的行为，但不是这样，我需要条形图上的标签与条形保持对齐，看起来更像：

有没有解决方案呢？

Answer 1

您可以在angle中使用geom_text美学，将其设置为固定值。

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