如何在ggplot柱状图上方添加对应年份的运动时长排名？

要实现给每个年份的柱子上方添加排名，你需要先计算每个年份的运动时长排名，再用geom_text()把排名文本标注到对应柱子的顶部。具体步骤如下：

步骤1：计算排名 #

首先用dplyr包（未安装的话先运行install.packages("dplyr")）给你的数据添加排名列。这里默认运动时长越长排名越靠前（第1名是时长最长的年份），若需要反向排名可去掉desc()：

library(dplyr)
library(ggplot2)

# 计算排名，dense_rank处理并列情况（并列年份共享同一排名），也可替换为rank()/min_rank()
data_ranked <- data %>%
  mutate(Rank = dense_rank(desc(Sportsactivity))) %>%
  # 将排名格式化为"第X名"的文本
  mutate(Rank_Label = paste0("第", Rank, "名"))

步骤2：绘制带排名标签的柱状图 #

在你原有的ggplot代码基础上，添加geom_text()放置排名标签，调整参数避免标签与柱子重叠：

ggplot(data_ranked, aes(x = Year, y = Sportsactivity)) +
  geom_bar(stat = "identity") +
  # 添加排名标签，vjust控制垂直位置，size调整字号
  geom_text(aes(label = Rank_Label), vjust = -0.5, size = 3.5) +
  ggtitle("Sportsactivity with rank the year") +
  # 可选：扩大y轴范围，防止顶部标签被图表边界截断
  expand_limits(y = max(data_ranked$Sportsactivity) * 1.1)

关键说明 #

• 排名函数选择：dense_rank()会让并列年份共享同一排名（比如两个时长相同的年份都排第2）；若需要跳过并列后的名次（两个第2名后直接是第4名），可改用rank()；min_rank()逻辑与dense_rank()类似，可根据需求选择。
• 标签位置：vjust=-0.5让标签位于柱子顶部上方，数值越大标签越靠上；若柱子高度差异大，也可直接用y = Sportsactivity + 固定值来调整位置。

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