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

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

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