08. 给柱状图柱条添加数值标记

需求还是希望给这张图中的柱子加个标记：

利用geom_text 图形参数：

p <- ggplot(data = freq_df_all, mapping = aes(x = gene_name, y = my_freq_per, fill = age_range)) + 
  geom_bar(stat = "identity",
           position = "dodge") + theme_classic()
p + scale_fill_nejm() + geom_text(aes(label = my_freq_per), position = position_dodge(0.9), vjust = -0.8)

label 表示文字的来源，选择和柱状图y 轴展示所用相同的值，position 和柱状图中相同的dodge模式，通过vjust 调整文字上移0.8 个单位：