ggplot2中如何避免坐标轴标签重叠同时强制指定标签始终显示

问题描述 #

我使用scale_y_discrete(guide_axis(check.overlap = T))来避免坐标轴标签重叠，但是希望某个特定标签始终显示。下方是一个简单示例，我将需要展示的目标标签设置为了加粗下划线样式，当我调大N的取值时，该标签就不再可见了。请问如何设置才能指定这个标签始终显示？如果解决方案可以避免重新排序标签就更好了！

示例代码：

library(ggplot2)

N              = 20
df             = data.frame(parameters = paste("paramters", seq(N), sep = "_"))
df$parameters  = factor(df$parameters, levels = df$parameters, ordered = T)

best           = 9
breaks         = levels(df$parameters)
labels         = as.expression(breaks)
labels[[best]] = bquote(underline(bold(.(labels[[best]]))))


p = ggplot(df, aes(y = parameters)) +
  scale_y_discrete(breaks = breaks,
                   labels = labels,
                   guide  = guide_axis(check.overlap = T))

N              = 75
df             = data.frame(parameters = paste("paramters", seq(N), sep = "_"))
df$parameters  = factor(df$parameters, levels = df$parameters, ordered = T)

best           = 9
breaks         = levels(df$parameters)
labels         = as.expression(breaks)
labels[[best]] = bquote(underline(bold(.(labels[[best]]))))


p = ggplot(df, aes(y = parameters)) +
  scale_y_discrete(breaks = breaks,
                   labels = labels,
                   guide  = guide_axis(check.overlap = T))

^{2021-09-22由reprex包（v2.0.0）创建}

解决方案 #

核心思路是在保留自动筛选无重叠标签逻辑的基础上，强制将目标标签加入最终的坐标轴刻度列表，全程保留原始因子的排序规则，不会打乱标签顺序。

完整可运行代码如下：

library(ggplot2)
library(scales)

# 构造数据，和示例逻辑完全一致
N = 75
df = data.frame(parameters = paste("paramters", seq(N), sep = "_"))
df$parameters = factor(df$parameters, levels = df$parameters, ordered = T)
best = 9
target_label = levels(df$parameters)[best]

# 1. 生成默认自动筛选的无重叠刻度
auto_breaks_idx = breaks_extended()(seq_along(levels(df$parameters)))
auto_breaks = levels(df$parameters)[auto_breaks_idx]

# 2. 加入目标标签，去重后按原始因子顺序排序，保证顺序不变
final_breaks = unique(c(auto_breaks, target_label))
final_breaks = final_breaks[order(match(final_breaks, levels(df$parameters)))]

# 3. 处理标签样式
labels = as.expression(final_breaks)
labels[final_breaks == target_label] = bquote(underline(bold(.(target_label))))

# 4. 绘图
ggplot(df, aes(y = parameters)) +
  scale_y_discrete(breaks = final_breaks,
                   labels = labels,
                   guide = guide_axis(check.overlap = T))

方案说明

• 完全保留原始标签的排序，没有任何重排序操作
• 仅额外加入指定要显示的标签，其余标签仍遵循自动去重叠的筛选规则
• 若目标标签本身已经在自动筛选的刻度列表中，代码会自动去重，不会出现重复显示的问题
• 即使调大N的取值，目标标签也会始终出现在坐标轴上

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