ggplotly分面图中竖线旁标签的Y轴位置设置问题

要实现每个分面竖线旁的标签位于对应子图数据最大值的80%位置并旋转90度，需要先提前计算每个类别的数值上限基准，再通过文本图层添加标签，具体步骤如下：

1. 计算标签位置数据 #

首先基于原始数据集，按类别分组计算每个组的value最大值的80%，同时关联竖线日期，生成专门的标签数据框：

# 计算每个类别的最大值80%，生成标签数据
label_df <- df %>%
  group_by(category) %>%
  summarise(max_val_80 = max(value) * 0.8) %>%
  mutate(date = vline_date,  # 关联竖线日期
         label_text = "关键日期")  # 自定义标签文本

2. 修改ggplot代码添加标签 #

在原有ggplot代码中加入geom_text图层，指定x、y坐标，设置旋转角度和对齐方式，确保标签紧贴竖线且可读性良好：

# 定义竖线日期
vline_date <- as.Date("2023-10-25")

# 生成带标签的可视化并转成ggplotly
ggplotly(
  ggplot(df, aes(x = date, y = value, color = category)) +
    geom_line() +
    facet_wrap(~ category, scale = "free_y") +
    geom_vline(xintercept = as.numeric(vline_date), linetype = "dashed", color = "red") +
    # 添加旋转90度的标签，hjust调整水平位置让标签贴近竖线
    geom_text(data = label_df, aes(x = date, y = max_val_80, label = label_text),
              color = "black", angle = 90, hjust = -0.1, inherit.aes = FALSE) +
    labs(title = "带类别分面与竖线标签的折线图",
         x = "日期", y = "数值") 
)

关键点说明 #

• inherit.aes = FALSE：避免继承主图层的color = category映射，确保标签颜色统一
• hjust = -0.1：调整标签相对于竖线的水平位置，避免与竖线重叠
• 标签数据框label_df通过分组计算保证每个子图的Y轴位置适配各自的数据范围

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