如何在R双折线图图例中添加不关联绘图线条的文本？

我先把你没写完的代码补全，生成可运行的基础折线图，再给你两种实用的方案来添加不关联绘图线条的图例文本：

第一步：补全并运行基础绘图代码 #

首先我们把数据聚合、绘图的完整代码写出来，确保能生成你要的双线条图表：

library(tidyverse)
set.seed(36)

Data <- data.frame(
  date = sample((as.Date(as.Date("2011-12-30"):as.Date("2012-01-04"), origin="1970-01-01")), 1000, replace = TRUE),
  group = sample(c("0", "1"), 1000, replace = TRUE),
  outcome = sample(c("0", "1"), 1000, replace = TRUE)
)

# 聚合数据并转换格式
plot_data <- Data %>%
  mutate(date = as.POSIXct(date), group = factor(group)) %>%
  group_by(group, date) %>%
  summarise(outcome_rate = mean(as.numeric(outcome)), .groups = "drop")

# 生成基础折线图
p <- ggplot(plot_data, aes(x = date, y = outcome_rate, color = group)) +
  geom_line() +
  labs(color = "分组")
p

方法1：在现有图例中添加独立文本条目 #

这种方法会在现有图例里新增一个只显示文本、不对应任何绘图线条的条目，适合把说明和图例放在一起的场景：

p +
  # 给图例添加新的文本条目
  scale_color_discrete(labels = c("分组0", "分组1", "注：此数据为模拟生成")) +
  guides(color = guide_legend(
    override.aes = list(
      # 让新条目的线条透明且隐藏，只保留文本
      color = c("#F8766D", "#00BFC4", "transparent"),
      linetype = c(1, 1, 0)
    )
  ))

方法2：在图例区域附近单独添加文本注释 #

如果不想修改原有图例结构，而是在图例旁边/下方单独放置说明文本，可以用annotate()来定位：

# 先获取图例的位置坐标
p_build <- ggplot_build(p)
legend_pos <- p_build$layout$panel_params[[1]]$legend$position

p +
  annotate("text", 
           x = legend_pos$x,  # 对齐图例的x轴位置
           y = legend_pos$y - 0.15,  # 放在图例下方（可调整数值改变位置）
           label = "注：此数据为模拟生成，仅作示例使用",
           hjust = 0, size = 3.5)

另外，如果你想让原有图例的条目差异更明显，直接修改labels参数就能实现：

p + scale_color_discrete(labels = c("对照组(Group 0)", "实验组(Group 1)"))

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