r - 如何修复 geom_text 标签位置，使其始终位于图的中间？

Question

我想创建一个生成 ggplot 图的函数。

data1 <- data.table(x=1:5, y=1:5, z=c(1,2,1,2,1))
data2 <- data.table(x=1:5, y=11:15, z=c(1,2,1,2,1))

myfun <- function(data){
    ggplot(data, aes(x=x, y=y)) +
        geom_point() +
        geom_text(aes(label=y), y=3) +
        facet_grid(z~.)
}

myfun(data2)

它应该在图表上标记一些文本。但是，在事先不知道数据的情况下，我无法手动垂直调整文本的位置。特别是我不希望标签随数据移动位置:我希望它始终保持在图垂直方向的 1/4 左右。 (中上)

我怎样才能做到这一点？

是否有返回 y.limit.up 的函数和 y.limit.bottom然后我可以分配 y = (y.limit.up + y.limit.bottm) / 2或者其他的东西。

Answer 1

例如，您可以这样做:

ggplot(data2, aes(x=x)) +
        geom_point(aes(y=y)) +
        geom_text(aes(label=y, y=mean(range(y)))) +
        facet_grid(z~.)

或者手动修复 y 限制:

scale_y_continuous(limits = c(10, 15))