Shiny交互式柱状图中geom_text的nudge_y相对高度设置问题

可以通过以下几种方式实现文本标签相对于柱状图高度动态调整，始终紧贴顶部：

方法1：使用vjust参数设置相对偏移 #

vjust参数基于元素自身高度设置垂直位置，负数表示向上偏移，取值为比例值。相比固定的nudge_y，它能自适应柱子高度：

ggplot(users_by_month(), aes(x = month, y = n)) +
    geom_bar(stat = "identity") +
    geom_text(aes(label = n), vjust = -0.2)

• 调整vjust的数值可以改变偏移幅度，比如-0.1会更贴近柱子，-0.3会稍远一些。

方法2：基于数据最大值动态计算nudge_y #

根据当前筛选后数据的最大值，按百分比计算偏移量，确保偏移幅度随数据范围变化：

month_data <- users_by_month()
# 取数据中最大数值的5%作为偏移量，可根据需求调整百分比
dynamic_nudge <- max(month_data$n) * 0.05

ggplot(month_data, aes(x = month, y = n)) +
    geom_bar(stat = "identity") +
    geom_text(aes(label = n), nudge_y = dynamic_nudge)

方法3：直接设置文本的y坐标为柱子高度加比例偏移 #

不使用nudge_y，而是直接将文本的y位置设为柱子高度加上自身高度的固定比例，让每个标签的偏移量和对应柱子高度成正比：

ggplot(users_by_month(), aes(x = month, y = n)) +
    geom_bar(stat = "identity") +
    geom_text(aes(label = n, y = n + n * 0.03))

• 这里的0.03表示偏移柱子高度的3%，可根据视觉效果调整数值。

内容的提问来源于stack exchange，提问作者user3249770