R中geom_text结合facet_wrap绘图时文本重叠问题求助

• 绑定分面变量与文本数据
  确保geom_text明确调用你的df_R_DENSITY数据集，同时关闭继承主图的美学映射，让每个分面只加载对应分组的R²值。推荐将文本固定在分面的角落（比如右上角），通过位置参数调整避免超出绘图区：

  ggplot(your_main_data, aes(x = x_var, y = y_var)) +
    geom_point() +
    facet_wrap(~Trial) +
    geom_text(
      data = df_R_DENSITY,
      aes(x = Inf, y = Inf, label = R_squared_expr),
      hjust = 1.1, vjust = 1.1,
      inherit.aes = FALSE
    )
  

  这里x = Inf和y = Inf定位到分面右上角，hjust和vjust控制文本相对该点的偏移量，inherit.aes = FALSE是核心，防止主图的映射干扰文本的分面匹配。

• 检查文本数据集的行数
  确认df_R_DENSITY中每个Trial分组仅对应一行R²记录，若存在重复行，同一个分面会重复绘制文本，直接导致重叠。可以用distinct去重：

  df_R_DENSITY <- df_R_DENSITY %>% distinct(Trial, .keep_all = TRUE)
  

• 为分面单独指定文本位置
  如果统一角落位置不适合部分分面的数据分布，可以在df_R_DENSITY中新增位置列，为每个分组手动设置坐标：

  df_R_DENSITY <- df_R_DENSITY %>%
    mutate(
      x_pos = case_when(
        Trial == "Trial1" ~ 80,
        Trial == "Trial2" ~ 90,
        TRUE ~ 75
      ),
      y_pos = case_when(
        Trial == "Trial1" ~ 120,
        Trial == "Trial2" ~ 130,
        TRUE ~ 110
      )
    )
  
  # 绘图时调用自定义位置
  ggplot(your_main_data, aes(x = x_var, y = y_var)) +
    geom_point() +
    facet_wrap(~Trial) +
    geom_text(
      data = df_R_DENSITY,
      aes(x = x_pos, y = y_pos, label = R_squared_expr),
      inherit.aes = FALSE
    )
  

• 调整文本样式优化显示
  若位置合理但仍有视觉拥挤，可缩小文本尺寸、调整颜色：

  geom_text(
    data = df_R_DENSITY,
    aes(x = Inf, y = Inf, label = R_squared_expr),
    hjust = 1.1, vjust = 1.1,
    inherit.aes = FALSE,
    size = 3, color = "darkblue"
  )
  

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