使用gghighlight高亮单组数据时的警告与绘图错误求助

问题根源 #

1. 数据格式不匹配：你的数据集是宽格式（每个质量指标单独占一列），但geom_line和gghighlight需要长格式数据——所有指标值统一放在一列，用额外列标记指标类型，这是导致y轴映射长度不匹配的核心原因。
2. gghighlight逻辑绑定错误：之前的代码未将高亮逻辑与Unit分组绑定，就算把gghighlight移出函数，也会因为数据格式问题继续报错。

一步步解决 #

1. 转换数据为长格式 #

假设你的最小数据集结构如下：

# 示例最小数据集
df <- data.frame(
  month = c("Jan", "Feb", "Jan", "Feb"),
  Unit = c("ICU", "ICU", "Ward", "Ward"),
  unitCount = c(5, 3, 2, 4),
  witness = c(80, 85, 60, 65),
  epi = c(90, 92, 75, 78)
)

用tidyr包将宽格式转成长格式：

library(tidyr)
df_long <- df %>%
  pivot_longer(cols = c(witness, epi),  # 指定要转换的质量指标列
               names_to = "indicator",  # 新增列：标记指标类型
               values_to = "value")     # 新增列：存储指标数值

2. 修正绘图代码 #

调整ggplot的映射逻辑，正确使用gghighlight：

library(ggplot2)
library(gghighlight)

# 高亮指定单元（示例为ICU）
ggplot(df_long, aes(x = month, y = value, color = Unit, group = Unit)) +
  geom_line(size = 1) +
  geom_point(size = 2) +
  # 按指标分面，模拟得分卡布局
  facet_wrap(~indicator, scales = "free_y") +
  # 指定高亮条件，关闭自动标签避免混乱
  gghighlight(Unit == "ICU", use_direct_label = FALSE) +
  labs(title = "院内心脏骤停质量指标得分卡",
       x = "月份", y = "指标百分比", color = "单元") +
  theme_minimal()

错误细节解释 #

• y轴长度不匹配：宽格式数据中，每个指标列长度相同，但geom_line会尝试同时映射所有列的y值，与Unit分组的逻辑对应不上；转长格式后，每一行对应一个「单元-月份-指标」的组合，长度完全匹配。
• gghighlight警告：原代码未明确指定group = Unit，gghighlight无法正确识别分组逻辑，转长格式并绑定分组后，高亮逻辑即可正常运行。

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