如何获取ggplot中geom_tile的尺寸以缩放geom_text内的Unicode图形？

核心思路：解析绘图底层布局获取tile尺寸 #

ggplot的图层尺寸信息藏在构建后的绘图对象里，通过ggplot_build()和ggplot_gtable()可以提取这些数据，不需要手动反复微调。

具体实现步骤 #

1. 提取tile的布局数据
   先把ggplot对象转换成底层布局结构，从中定位geom_tile元素并获取其尺寸：

   library(ggplot2)
   library(grid)
   
   # 原始数据处理
   cars$category <- rep(c("a","b","c","d","e"),10)
   cars$category2 <- rep(c("a","b","c","d","e","f","g","h","i","j"),5)
   graph <- ggplot(cars,aes(x=category,y=category2)) + geom_tile()
   
   # 生成构建后的绘图对象
   gb <- ggplot_build(graph)
   gt <- ggplot_gtable(gb)
   
   # 定位panel中的tile图层（geom_tile通常是panel下第一个子元素）
   panel_grob <- gt$grobs[[which(sapply(gt$grobs, function(x) x$name) == "panel")]]
   tile_layer <- panel_grob$children[[1]]
   
   # 获取tile的相对尺寸（单位：npc，即占绘图区域的比例）
   tile_width <- tile_layer$widths[[1]]
   tile_height <- tile_layer$heights[[1]]
   

2. 根据tile尺寸计算Unicode字符的适配大小
   ggplot的geom_text用size参数控制字体大小（单位：mm），结合你输出的绘图尺寸，把tile的相对比例转换成实际mm值，再计算合适的字体大小：

   # 转换输出尺寸为mm（1px = 25.4/600 mm，对应dpi=600）
   output_dim_mm <- 3360 * (25.4/600)
   
   # 计算tile的实际宽高（mm）
   actual_tile_width <- as.numeric(tile_width) * output_dim_mm
   actual_tile_height <- as.numeric(tile_height) * output_dim_mm
   
   # 取宽高中的较小值，乘以系数（比如0.8）作为字体大小，避免字符超出tile
   font_size <- min(actual_tile_width, actual_tile_height) * 0.8
   
   # 重新绘制图形，应用计算好的字体大小
   graph <- ggplot(cars,aes(x=category,y=category2)) + 
     geom_tile() + 
     geom_text(color=cars$speed, label="◖", family="Arial", size=font_size)
   
   ggsave("test.png", plot=graph, device="png", width=3360, height=3360, units="px", dpi=600)
   

补充提示 #

• 如果找不到tile图层，可以用str(panel_grob$children)查看子元素结构，定位对应geom_tile的grobs。
• 系数0.8是为了给字符留边距，可根据Unicode字符的实际形状调整这个值。

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