如何让R中geom_pictogram的图标从Y轴0刻度开始对齐

核心问题分析 #

geom_pictogram默认布局存在微小偏移，加上flip=TRUE的坐标系翻转，导致图标底部无法对齐Y轴0刻度，视觉上呈现数值偏高的效果。

解决方案代码 #

# install.packages("waffle", repos = "https://cinc.rud.is")
library(waffle)
library(ggplot2)

data <- data.frame(
  x = c('John', 'James', 'Jeff', 'Joe', 'Jake'),
  ht = c(72, 71, 73, 69, 66),
  icon = rep('rocket', 5)
)

# 计算图标顶部对应的Y轴位置（用于数值标签）
data$y_pos <- data$ht / 5

ggplot(data, aes(label= x,
                 values = ht,
                 color=icon)) +
  # 添加位置偏移，让图标底部对齐0刻度
  geom_pictogram(n_rows=5, make_proportional=FALSE, size=5, flip=TRUE,
                 position = position_nudge(y = -0.5)) +
  facet_wrap(~x, nrow = 1, strip.position = "bottom") +
  scale_x_discrete() + 
  scale_y_continuous(labels=function(x) x * 5, 
                     expand = c(0,0),
                     # 调整Y轴下限避免图标被截断，上限覆盖最大数值对应的行数
                     limits = c(-0.5, 15)) +
  scale_label_pictogram(
    name = NULL,
    values = c('rocket' = 'rocket')
  ) +
  # 在图标顶部添加实际数值标签
  geom_text(aes(y = y_pos + 0.3, label = ht), inherit.aes = FALSE,
            data = data, color = "black", size = 4) +
  theme(legend.position = "none",
        axis.ticks.y = element_line(),
        axis.text.y = element_text(vjust = 0.5))

关键调整说明 #

• 图标位置校准：通过position_nudge(y = -0.5)将图标整体下移0.5个单位（对应翻转后的Y轴坐标系），让图标底部精准对齐Y轴0刻度。
• Y轴范围适配：将Y轴下限设为-0.5，避免偏移后的图标被绘图区域截断，同时保留expand = c(0,0)消除额外留白。
• 数值标签定位：基于ht/5计算图标顶部的Y轴位置，用geom_text直接映射原始数据添加数值，解决分面场景下annotate无法准确定位的问题。

额外优化建议 #

• 若使用不同图标，可微调position_nudge的数值（如-0.48）适配图标字体差异。
• 若无需Y轴刻度，可隐藏Y轴元素：theme(axis.text.y = element_blank(), axis.ticks.y = element_blank())，仅保留顶部数值标签。

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