R语言向条形图加标签

# install.packages("gcookbook")
# 加载 gcookbook 包（其中包含数据集 cabbage_exp）
library(gcookbook)  # Load gcookbook for the cabbage_exp data set
library(ggplot2)
# 绘制图形（在“柱子图”上标注每个柱子的数值）
# x：把 Date 和 Cultivar 组合成一个交互（类别）变量，用于形成分组/并列的柱子
# y：柱子的高度由 Weight 决定
ggplot(cabbage_exp, aes(x = interaction(Date, Cultivar), y = Weight)) +
  
  # geom_col()：画柱状图（列高度直接对应 y=Weight）
  geom_col(fill = "darkblue") +
  
  # 在每根柱子上方/内部添加文本标签
  # label：文本内容取 Weight
  # vjust：调整文字的垂直对齐位置（1.5 通常用于把文字往下推，避免遮挡）
  # colour：文字颜色设为白色，方便在深色柱子上更清晰
  geom_text(aes(label = Weight), vjust = 1.5, colour = "white")