如何用ggplot模拟base::plot绘制多时间序列？解析差异原因

一、base plot和ggplot差异显著的原因 #

1. 配色逻辑差异：
   base的plot.xts默认用彩虹色系循环分配颜色，50条序列的颜色跨度大、区分度高，哪怕重叠也能看出多条线条；而ggplot默认的scale_color_hue()生成的离散色板，针对50个类别时颜色会极度接近，相邻颜色几乎无差别，视觉上直接融合成了一条线。
2. 渲染细节差异：
   base plot按序列逐个绘制，后画的线条叠加在前一条上，但颜色区分明显不会完全掩盖；ggplot处理分组线条时，默认线条粗细加上颜色过于相似，导致重叠区域的线条完全混在一起，只剩视觉上最突出的部分。

二、让ggplot实现类似base plot效果的方法 #

方法1：改用高区分度配色方案 #

比如复用base的彩虹色系，或者用对色盲更友好的viridis离散色板：

library(xts)
library(data.table)
library(ggplot2)

prova <- xts(do.call(cbind,lapply(1:50, \(x)rnorm(1000))), as.yearmon(seq.Date(as.Date("2024-01-01"), length.out = 1000, by = '1 month')))
dt <- melt(as.data.table(prova), id.vars = "index", variable.name = "var", value.name = "value")

# 使用彩虹色系
ggplot(dt, aes(index, value)) +
  geom_line(aes(color = var), linewidth = 0.5) +
  scale_color_manual(values = rainbow(50)) +
  theme(legend.position = "none")

# 或者用viridis离散色板
ggplot(dt, aes(index, value)) +
  geom_line(aes(color = var), linewidth = 0.5) +
  scale_color_viridis_d(option = "plasma", begin = 0, end = 1) +
  theme(legend.position = "none")

方法2：添加透明度 #

让线条半透明，重叠区域能透出下层线条，配合高区分度颜色效果更好：

ggplot(dt, aes(index, value)) +
  geom_line(aes(color = var), linewidth = 0.5, alpha = 0.7) +
  scale_color_manual(values = rainbow(50)) +
  theme(legend.position = "none")

方法3：调细线条粗细 #

减少单条线对区域的覆盖，让多条线的轮廓更清晰：

ggplot(dt, aes(index, value)) +
  geom_line(aes(color = var), linewidth = 0.3) +
  scale_color_manual(values = rainbow(50)) +
  theme(legend.position = "none")

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