ggplot2中annotation_custom针对离散X轴设置坐标放置图片

嘿，我明白你遇到的困扰了——当X轴是离散变量时，直接用annotation_custom搭配-Inf/Inf确实会让图片铺满整个图表，因为它是基于数据坐标系来定位元素的。下面给你两个实用的解决方案，帮你把水印精准固定在右上角：

方法1：基于离散轴的整数坐标定位 #

在ggplot的坐标系里，离散类别其实对应着连续的整数（比如第一个类别对应1，第二个对应2，以此类推），我们可以利用这个特性直接指定水印的位置：

library(ggplot2)
library(png)
library(grid)

# 1. 创建基础柱状图
g <- ggplot(mpg, aes(class)) + geom_bar()

# 2. 获取类别数量和y轴最大计数
class_count <- length(unique(mpg$class))
y_max <- max(table(mpg$class))

# 3. 读取并处理水印图片
img <- png::readPNG("./watermark.png")
# 可通过width/height参数调整水印大小，比如设为绘图区域的15%
rast <- grid::rasterGrob(img, interpolate = TRUE, width = 0.15, height = 0.15)

# 4. 添加水印到右上角
g + annotation_custom(
  rast,
  xmin = class_count - 0.5,  # 最后一个类别右侧的起始位置
  xmax = class_count + 0.5,  # 最后一个类别右侧的结束位置
  ymin = y_max * 0.8,        # 从y轴80%高度开始
  ymax = y_max               # 到y轴顶部结束
)

方法2：通用的相对位置定位（推荐） #

如果你的图表后续可能修改轴类型，或者想更灵活地控制相对位置，可以用ggplot_build获取图表的实际轴范围，再用比例来定位：

library(ggplot2)
library(png)
library(grid)

# 1. 创建基础柱状图
g <- ggplot(mpg, aes(class)) + geom_bar()

# 2. 获取图表的轴范围
gb <- ggplot_build(g)
x_range <- gb$layout$panel_params[[1]]$x.range
y_range <- gb$layout$panel_params[[1]]$y.range

# 3. 读取并处理水印图片
img <- png::readPNG("./watermark.png")
rast <- grid::rasterGrob(img, interpolate = TRUE, width = 0.15, height = 0.15)

# 4. 添加水印到右上角（相对位置）
g + annotation_custom(
  rast,
  xmin = x_range[2] * 0.8,  # x轴右侧20%区域的起始点
  xmax = x_range[2],        # x轴最右端
  ymin = y_range[2] * 0.8,  # y轴顶部20%区域的起始点
  ymax = y_range[2]         # y轴最顶端
)

为什么之前的方法会铺满整个图表？ #

当你用xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf时，annotation_custom会把水印的范围设为整个数据坐标系的边界，也就是整个绘图面板，所以图片会被拉伸填充整个区域。而上面的方法通过精准指定坐标范围，就能把水印限制在右上角的小区域里。

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