如何在R语言中实现多折线图的混合线型设置

核心逻辑为提前给数据集新增显著性标识列，将绘图的线型参数映射到该标识列即可实现需求，以下是常见场景的代码示例： #

场景1：森林图（变量回归系数展示） #

# 加载依赖包
library(ggplot2)
library(dplyr)

# 1. 准备数据集，可替换为自身真实数据
# 模拟回归分析结果，包含变量名、回归系数、95%置信区间上下限、p值
set.seed(123)
data <- data.frame(
  variable = paste0("变量", 1:10),
  coef = rnorm(10, 0, 2),
  conf_low = rnorm(10, -3, 1),
  conf_high = rnorm(10, 3, 1),
  p_value = runif(10, 0, 0.1)
)

# 2. 新增显著性标识列，可根据需求调整阈值（如0.01）
data <- data %>%
  mutate(significant = ifelse(p_value < 0.05, "显著", "非显著"))

# 3. 绘图
ggplot(data, aes(x = coef, y = reorder(variable, coef))) +
  # 添加0参考线
  geom_vline(xintercept = 0, linetype = "dotted", color = "gray50") +
  # 误差线映射线型
  geom_errorbarh(aes(xmin = conf_low, xmax = conf_high, linetype = significant), height = 0.2) +
  geom_point(size = 2) +
  # 手动指定线型：显著为实线，非显著为虚线
  scale_linetype_manual(values = c("显著" = "solid", "非显著" = "dashed")) +
  labs(x = "回归系数", y = "变量", linetype = "显著性") +
  theme_bw()

场景2：多序列折线图 #

# 加载依赖包
library(ggplot2)
library(dplyr)

# 模拟时间序列数据
set.seed(123)
ts_data <- data.frame(
  time = rep(2015:2024, 5),
  variable = rep(paste0("变量", 1:5), each = 10),
  value = cumsum(rnorm(50)),
  # 每个变量对应显著性标识
  significant = rep(c("显著", "非显著", "显著", "非显著", "显著"), each = 10)
)

# 绘图
ggplot(ts_data, aes(x = time, y = value, color = variable)) +
  geom_line(aes(linetype = significant), linewidth = 1) +
  scale_linetype_manual(values = c("显著" = "solid", "非显著" = "dashed")) +
  labs(x = "年份", y = "数值", linetype = "显著性", color = "变量") +
  theme_bw()

你可以根据自身的绘图类型，灵活调整linetype的映射位置，所有支持线型设置的geom_*函数都适用该逻辑。

内容的提问来源于stack exchange，提问作者Tran.Ha