ggplot2绘图缩放时geom_text文本未同步缩放的技术求助

问题描述 #

缩放ggplot2绘制的图形时，geom_text()添加的文本大小始终保持不变，未随图形尺寸一同放大或缩小。大尺寸图中文本在对应框内有充足空间，但小尺寸图中几乎无法容纳。

示例代码：

df=data.frame(
    xmin = 0,
    xmax = 7.5,
    ymin = 0,
    ymax = 2.5,
    radius = 0.1
)

plot = ggplot(df) +
        # testlabel box
        geom_rounded_rect(aes(xmin = xmin[1], xmax = xmax[1], ymin = ymin[1], ymax= ymax[1], radius = radius[1]), fill="lightgray", color="black", linewidth=1.5) +
        geom_text(aes(x=xmin[1]+0.25, y=ymax[1]-0.25),label="testlabel", size= 4, hjust = 0, vjust = 1) +
        # left box 1
        geom_rounded_rect(aes(xmin = xmin[1]-4.5, xmax = xmin[1]-0.5, ymin = ymin[1]-1.5, ymax= ymin[1], radius = radius[1]), fill="lightgray", color="black", linewidth=1.5) +
        geom_text(aes(x=xmin[1]-4.25, y=ymin[1]-0.25),label="left box 1", size= 4, hjust = 0, vjust = 1) +
        # left box 2
        geom_rounded_rect(aes(xmin = xmin[1]-4.5, xmax = xmin[1]-0.5, ymin = ymin[1]-3.25, ymax= ymin[1]-1.75, radius = radius[1]), fill="lightgray", color="black", linewidth=1.5) +
        geom_text(aes(x=xmin[1]-4.25, y=ymin[1]-2),label="left box 2", size= 4, hjust = 0, vjust = 1) +
        # theme stuff
        xlim(-10,10) + ylim(-10, 10) +
        xlab(NULL) +  
        ylab(NULL) +
        coord_fixed(ratio = 1)

# plotting
X11(width = 7, height = 7)
print(plot)
X11(width = 4, height = 4)
print(plot)

解决思路 #

方法1：使用相对单位（npc）定义文本大小 #

geom_text()默认用**pt（磅）作为绝对单位，因此不会随图形缩放。改用npc（归一化父坐标）**作为单位，让文本大小基于绘图区域的相对比例自动调整：

修改geom_text()的size参数，用unit()指定npc单位：

geom_text(aes(x=xmin[1]+0.25, y=ymax[1]-0.25),label="testlabel", size=unit(0.04, "npc"), hjust=0, vjust=1)

• 0.04是相对比例，可根据需求调整，数值越大文本越大
• 文本大小会随绘图窗口/输出图形的尺寸同步缩放

方法2：根据输出尺寸动态设置文本大小 #

将文本大小设为变量，根据图形的width/height动态计算比例：

# 定义绘图函数，接收尺寸参数
plot_with_dynamic_text <- function(plot_width) {
  # 根据宽度计算文本大小（示例：width=7对应size=4）
  text_size <- 4 * (plot_width / 7)
  ggplot(df) +
    geom_rounded_rect(aes(xmin = xmin[1], xmax = xmax[1], ymin = ymin[1], ymax= ymax[1], radius = radius[1]), fill="lightgray", color="black", linewidth=1.5) +
    geom_text(aes(x=xmin[1]+0.25, y=ymax[1]-0.25),label="testlabel", size=text_size, hjust=0, vjust=1) +
    geom_rounded_rect(aes(xmin = xmin[1]-4.5, xmax = xmin[1]-0.5, ymin = ymin[1]-1.5, ymax= ymin[1], radius = radius[1]), fill="lightgray", color="black", linewidth=1.5) +
    geom_text(aes(x=xmin[1]-4.25, y=ymin[1]-0.25),label="left box 1", size=text_size, hjust=0, vjust=1) +
    geom_rounded_rect(aes(xmin = xmin[1]-4.5, xmax = xmin[1]-0.5, ymin = ymin[1]-3.25, ymax= ymin[1]-1.75, radius = radius[1]), fill="lightgray", color="black", linewidth=1.5) +
    geom_text(aes(x=xmin[1]-4.25, y=ymin[1]-2),label="left box 2", size=text_size, hjust=0, vjust=1) +
    xlim(-10,10) + ylim(-10, 10) +
    xlab(NULL) +  
    ylab(NULL) +
    coord_fixed(ratio = 1)
}

# 绘制不同尺寸的图
X11(width = 7, height = 7)
print(plot_with_dynamic_text(7))
X11(width = 4, height = 4)
print(plot_with_dynamic_text(4))

• 可灵活定义文本大小与图形尺寸的比例，适合精确匹配场景

方法3：使用ggfittext包自动适配文本 #

ggfittext包的geom_fit_text()可自动将文本缩放到指定区域内：

1. 安装包：install.packages("ggfittext")
2. 替换geom_text()为geom_fit_text()，并指定文本所在的区域范围：

library(ggfittext)

ggplot(df) +
  geom_rounded_rect(aes(xmin = xmin[1]-4.5, xmax = xmin[1]-0.5, ymin = ymin[1]-1.5, ymax= ymin[1], radius = radius[1]), fill="lightgray", color="black", linewidth=1.5) +
  geom_fit_text(aes(xmin=xmin[1]-4.5, xmax=xmin[1]-0.5, ymin=ymin[1]-1.5, ymax=ymin[1]), label="left box 1", hjust=0.05, vjust=0.95) +
  # 其余元素同理替换
  xlim(-10,10) + ylim(-10, 10) +
  xlab(NULL) +  
  ylab(NULL) +
  coord_fixed(ratio = 1)

• 自动根据指定区域调整文本大小，确保文本始终容纳在框内，适配不同图形尺寸

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