r - geom_text 在所有方面写入所有数据

Question

我将 ggplot 与 facet_grid 一起使用，我想在每个方面指示每个方面的观察数量。我遵循许多网站上提供的示例，但是当我让它写任何东西时，它会在所有四个图上将所有四个观察数字都写在彼此之上。

这里的 geom_text 图层命令:
geom_text(data=ldata, aes(x=xpos, y=ypos, label=lab, size=1), group=NULL, hjust=0, parse=FALSE)

ldata 是一个数据框，列出了每个图上的坐标 (xpos, ypos) 和观察次数 (lab)。它在图上的正确位置打印数字，但在所有四个图中，所有四个数字都写在彼此的顶部。我无法弄清楚我做错了什么。

数据:

xpos ypos 实验室

1 10 1.35 378

2 10 1.35 2

3 10 1.35 50

4 10 1.35 26

Answer 1

你几乎拥有它。只是您的ldata 中还需要一栏您将提供给 facet_grid 的数据框. (我将 Ypos 更改为 Inf)

注意splitter的作用栏目ldata下面，以及如何在 facet_grid 中使用它

xpos <- c(10,10,10) 
ypos <- c(Inf,Inf,Inf)
lab <- c(378,2,50)
splitter <- c(1:3)
ldata <- data.frame(xpos, ypos, lab, splitter)


ggplot(mtcars) + geom_bar(aes(x=cyl)) + facet_grid(~splitter) + 
  geom_text(data=ldata, aes(x=xpos, y=ypos, 
                            label=lab, size=1), 
            vjust=2, parse=FALSE)

其中产生: