r 注释几何条上方的值

Question

考虑这个示例数据。

df <- data.frame(
  x = factor(c(1, 1, 2, 2)),
  y = c(.1, .3, .2, .1),
  grp = c("a", "b", "a", "b")
)

现在我使用 ggplot 创建图形，并使用 geom_text() 对其进行注释

ggplot(data = df, aes(x, y, fill = grp, label = y)) +
      geom_bar(stat = "identity", position = "dodge") +
scale_y_continuous(limits=c(0,1)) +
      geom_text(position = position_dodge(0.9))

如何指定所有文本值在图形窗口顶部完全水平对齐？

Answer 1

您可以在geom_text 中指定aes(y=...)。因此，对于图形窗口顶部的数字，您将拥有

ggplot(data = df, aes(x, y, fill = grp, label = y)) +
    geom_bar(stat = "identity", position = "dodge") +
    geom_text(aes(y=Inf), position = position_dodge(0.9))

您可能想加入 + ylim(0, 4) 来扩展绘图区域。

---

要匹配已编辑的问题:

ggplot(data = df, aes(x, y, fill = grp, label = y)) +
    geom_bar(stat = "identity", position = "dodge") +
    scale_y_continuous(limits=c(0,1)) +
    geom_text(aes(y=0.9), position = position_dodge(0.9))  ## can specify any y=.. value