如何移除ggplot中第三个分面的geom_label_repel标签？

问题描述 #

使用给定的数据框和ggplot代码绘制分面图后，第三个分面（categories == 1）出现了不需要的标签，需要移除这些标签并让该分面保持空白，方便演示时逐个展示线条。

修改方案 #

通过两处关键调整实现需求：

• 控制标签数据的生成范围，仅在前两个分面显示标签
• 过滤第三个分面的绘图数据，使其呈现空白状态，同时保留分面布局

修改后的完整代码 #

library(dplyr)
library(ggplot2)
library(ggrepel)

# 数据预处理
e.df$time_labels <- factor(e.df$time, levels=c("1 day", "2 days", "3 days", "4 days"))
e.df$categories <- as.factor(e.df$categories)

# 生成仅针对前两个分面的标签数据
xy_labs <- e.df %>%
  filter(!is.na(fit)) %>%
  group_by(categories, levels) %>%
  summarise(pos = which.max(time_labels),
            x = time_labels[pos],
            y = fit[pos]) %>%
  filter(categories %in% c("0", "0.5"))

# 绘制分面图，第三个分面保留布局但无内容和标签
g2 <- ggplot(e.df %>% filter(categories != "1"),
             aes(x=time,y=fit,color=levels,ymin=lower,ymax=upper)) +  
  geom_point(position = position_dodge(width = 0.2))+ 
  geom_line(aes(group = levels), linetype = "dotted") + 
  geom_errorbar(aes(ymin = lower, ymax = upper), width = 0.2, position = position_dodge(width = 0.2)) +
  geom_label_repel(data=xy_labs, aes(x=x, y=y, label = levels, color = levels), 
                   nudge_x = 0.1, inherit.aes=F, na.rm = TRUE) + 
  theme_bw() + 
  theme(legend.position = "none") + 
  facet_wrap(~ categories, drop = FALSE) + 
  scale_colour_manual(values = c("#009E73", "#0072B2", "#CC79A7", "#cacaca")) + 
  ylim(0, 0.045) 

plot(g2)

关键改动说明 #

• 标签控制：生成xy_labs时新增categories分组，并过滤掉categories == 1的标签数据，确保标签仅在0和0.5分面显示
• 空白分面实现：主图数据过滤掉categories == 1的行，同时给facet_wrap添加drop = FALSE参数，保证第三个分面的布局保留但无绘图内容
• 优化细节：将geom_label_repel的na.rm设为TRUE，避免潜在的NA警告

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