R ggplot2：使注释高度与图尺寸而非Y轴关联

方案1：相对图像输出尺寸固定注释 #

使用annotation_custom结合grid包创建的图形对象，注释位置和尺寸基于整个绘图区域的相对比例（0-1），不受坐标轴范围影响。

修改代码示例：

library(ggplot2)
library(grid)

# 定义通用批量绘图函数
plot_with_fixed_annotation <- function(df, y_col1, y_col2, title) {
  # 创建矩形和文本的图形对象
  rect_grob <- rectGrob(gp = gpar(fill = "#333333"))
  text_grob <- textGrob(label = "My_Text", gp = gpar(col = "white", fontface = "italic", size = 10))
  
  ggplot() +
    geom_line(data = df, aes(x = position, y = .data[[y_col1]]), size = .75, alpha = 0.7) +
    geom_line(data = df, aes(x = position, y = .data[[y_col2]]), size = .75, alpha = 0.7) +
    # 按绘图区域比例添加注释
    annotation_custom(rect_grob, xmin = 0.25, xmax = 0.75, ymin = 0, ymax = 0.15) +
    annotation_custom(text_grob, xmin = 0.25, xmax = 0.75, ymin = 0, ymax = 0.15) +
    ggtitle(title) +
    coord_cartesian(clip = "off")  # 避免注释被坐标轴裁剪
}

# 批量生成图表
Plot1 <- plot_with_fixed_annotation(df, "c_1", "t_1", "Plot 1")
Plot2 <- plot_with_fixed_annotation(df, "c_2", "t_2", "Plot 2")
Plot3 <- plot_with_fixed_annotation(df, "c_3", "t_3", "Plot 3")

ggsave("~/Desktop/Plot1.png", Plot1, width = 8, height = 1.7)
ggsave("~/Desktop/Plot2.png", Plot2, width = 8, height = 1.7)
ggsave("~/Desktop/Plot3.png", Plot3, width = 8, height = 1.7)

说明：

• xmin/xmax/ymin/ymax取值0-1，对应绘图区域左下角到右上角的比例
• 文本尺寸通过textGrob的size参数直接控制，不受坐标轴缩放影响

方案2：相对Y轴范围调整注释 #

先计算当前两个数据集的Y轴最大范围，按比例设置注释的位置和尺寸，确保注释在不同图表中占Y轴范围的比例一致。

修改代码示例：

library(ggplot2)

# 定义通用批量绘图函数
plot_with_relative_annotation <- function(df, y_col1, y_col2, title) {
  # 获取两个Y列的最大值，作为Y轴基准范围
  y_max <- max(df[[y_col1]], df[[y_col2]])
  # 设定注释高度为Y轴最大值的15%（可根据需求调整比例）
  annot_height <- y_max * 0.15
  annot_y_center <- -annot_height / 2
  
  ggplot() +
    geom_line(data = df, aes(x = position, y = .data[[y_col1]]), size = .75, alpha = 0.7) +
    geom_line(data = df, aes(x = position, y = .data[[y_col2]]), size = .75, alpha = 0.7) +
    geom_hline(yintercept = annot_y_center, size = 0.5, col = "#333333") +
    annotate("rect", ymin = -annot_height, ymax = 0, xmin = 525, xmax = 1525, fill = "#333333") +
    annotate("text", y = annot_y_center, x = median(df$position), label = "My_Text", 
             col = "white", size = 5, fontface = "italic") +
    ggtitle(title) +
    ylim(-annot_height, y_max)  # 锁定Y轴范围，避免自动缩放偏移注释
}

# 批量生成图表
Plot1 <- plot_with_relative_annotation(df, "c_1", "t_1", "Plot 1")
Plot2 <- plot_with_relative_annotation(df, "c_2", "t_2", "Plot 2")
Plot3 <- plot_with_relative_annotation(df, "c_3", "t_3", "Plot 3")

ggsave("~/Desktop/Plot1.png", Plot1, width = 8, height = 1.7)
ggsave("~/Desktop/Plot2.png", Plot2, width = 8, height = 1.7)
ggsave("~/Desktop/Plot3.png", Plot3, width = 8, height = 1.7)

说明：

• 以两个数据集的Y最大值为基准，按比例计算注释高度，确保不同图表中注释占比一致
• 通过ylim锁定Y轴范围，避免自动缩放导致注释位置偏移

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