ggplot优化：解决geom_text标签重叠及geom_text_repel丢失标签问题

一、修复geom_text_repel标签丢失的问题 #

• 扩展坐标轴显示范围：默认的坐标轴边界可能把标签挤出画布，手动扩大xlim/ylim范围，搭配推力和偏移参数调整：

  geom_text_repel(aes(label = metric_text), 
                  xlim = c(min(df$date) - 30, max(df$date) + 30),
                  ylim = c(min(df$value) * 0.9, max(df$value) * 1.1),
                  force = 0.5, nudge_x = 10)
  

• 精简标签数量：只保留每个指标的关键标注点（比如折线末尾），减少冗余标签：

  label_df <- df %>%
    group_by(variable, metric) %>%
    slice_tail(n = 1) %>%
    mutate(metric_text = paste0(metric, ": ", round(value, 2)))
  

  后续将过滤后的label_df单独传入geom_text_repel，而非使用原始全量数据。

二、解决右侧子图标签重叠的针对性调整 #

• 分面子图单独配置标签：如果用facet_wrap/facet_grid，给左右子图的标签设置不同偏移量：

  # 右侧子图标签右移
  geom_text_repel(data = label_df %>% filter(facet_col == "right"),
                  nudge_x = 20, color = "red")
  # 左侧子图标签左移
  geom_text_repel(data = label_df %>% filter(facet_col == "left"),
                  nudge_x = -20, color = "blue")
  

• 缩小右侧标签尺寸：降低右侧子图标签的字号，减少空间占用：

  geom_text_repel(data = label_df %>% filter(facet_col == "right"),
                  size = 3, color = after_scale(color))
  

三、替代思路：从根源避免标签拥挤 #

• 将指标整合到子图标题：把R²、NSE等指标直接作为子图标题的一部分，完全规避标签重叠：

  facet_wrap(~variable, labeller = labeller(variable = function(x) {
    metric_vals <- filter(df, variable == x) %>% select(R2, NSE, PBIAS) %>% slice(1)
    paste0(x, "\nR²: ", round(metric_vals$R2, 2), " | NSE: ", round(metric_vals$NSE, 2), " | PBIAS: ", round(metric_vals$PBIAS, 2))
  }))
  

• 改用带背景的标签：用geom_label_repel替代，通过半透明背景提升辨识度，同时避免遮挡折线：

  geom_label_repel(aes(label = metric_text), fill = "white", alpha = 0.8, size = 3)
  

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