R-ggplot2：实现随窗口大小缩放的geom_text字体

请提供需要格式化的具体内容，我会按照指定的Markdown规则帮你处理。

如果是针对你之前提出的ggplot2文本缩放问题，以下是符合要求的解决方案：

核心方案：基于ggproto的自定义几何对象 #

不用全局变量传递参数，同时适配包开发环境的规范，完整实现代码如下：

library(ggplot2)
library(grid)

# 自定义缩放文本Geom对象
GeomTextScaled <- ggproto(
  "GeomTextScaled", GeomText,
  
  # 扩展默认参数，新增scaled_size控制基础字号
  default_aes = aes(
    colour = "black", size = 5, angle = 0, hjust = 0.5,
    vjust = 0.5, alpha = NA, family = "", fontface = 1,
    lineheight = 1.2, scaled_size = 1
  ),
  
  # 重写preDrawDetails，计算适配窗口的字号
  preDrawDetails = function(self, data, panel_params, coord) {
    # 获取当前设备的尺寸（英寸）
    dev_dims <- dev.size()
    # 计算面板的实际显示比例
    panel_x_range <- diff(panel_params$x.range)
    panel_y_range <- diff(panel_params$y.range)
    coord_x_range <- diff(coord$limits$x)
    coord_y_range <- diff(coord$limits$y)
    
    # 基于面板宽度的比例生成缩放因子（可根据需求调整基准值）
    scale_factor <- (panel_x_range / coord_x_range) * dev_dims[1] / 10
    # 更新data中的size参数
    data$size <- data$scaled_size * scale_factor
    
    data
  },
  
  # 重写draw_panel，确保使用处理后的字号
  draw_panel = function(data, panel_params, coord, parse = FALSE,
                        na.rm = FALSE, check_overlap = FALSE) {
    data <- self$preDrawDetails(data, panel_params, coord)
    GeomText$draw_panel(data, panel_params, coord, parse, na.rm, check_overlap)
  }
)

# 对外暴露的geom函数
geom_text_scaled <- function(mapping = NULL, data = NULL,
                             stat = "identity", position = "identity",
                             ..., parse = FALSE, na.rm = FALSE,
                             show.legend = NA, inherit.aes = TRUE) {
  layer(
    data = data,
    mapping = mapping,
    stat = stat,
    geom = GeomTextScaled,
    position = position,
    show.legend = show.legend,
    inherit.aes = inherit.aes,
    params = list(
      parse = parse,
      na.rm = na.rm,
      ...
    )
  )
}

问题解决说明 #

1. 替代全局变量传递参数 #

• 新增scaled_size作为用户可控的基础字号参数，直接通过data对象传递给preDrawDetails
• 在preDrawDetails中计算缩放后的字号并更新data$size，全程不依赖全局环境变量

2. 解决devtools::load_all()加载失效问题 #

• 明确ggproto的继承关系（继承自GeomText），避免环境依赖
• 对外暴露的geom_text_scaled函数严格遵循ggplot2的layer封装规范
• 所有逻辑封装在Geom对象内部，不依赖全局环境中的临时对象

测试示例 #

ggplot(mtcars, aes(wt, mpg)) +
  geom_point() +
  geom_text_scaled(aes(label = rownames(mtcars)), scaled_size = 2) +
  theme_bw()

调整绘图窗口大小，字体尺寸会自动同步缩放。

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