ggplot2中实现点线图边缘颜色与填充色独立控制的方法

在数据可视化中，我们经常需要同时展示线条和点标记，并且希望点标记的填充色和边缘色能够独立控制。本文将介绍在ggplot2中实现这一效果的几种方法。

基本实现方法

最直接的方法是使用分层绘制的策略，通过叠加多个几何对象来实现：

library(tidyverse)
set.seed(165465)

# 创建示例数据
data <- tibble(
  lat = 38:46,
  tot = 20 + runif(9),
  week = 10 + runif(9, min = 0, max = 5)
)

# 整理数据为长格式
data_tidy <- data |> 
  pivot_longer(cols = !lat, names_to = 'class', values_to = 'value')

# 绘制图形
ggplot(data = data_tidy, aes(x = value, y = lat)) +
  # 绘制线条，颜色由class决定
  geom_line(aes(color = class), orientation = 'y', linewidth = 1.5) +
  # 第一层点：只显示填充色，边缘透明
  geom_point(aes(fill = class), color = "transparent", size = 4, shape = 21) +
  # 第二层点：只显示边缘色，填充透明
  geom_point(aes(color = class), fill = "transparent", size = 4, shape = 21) +
  # 设置颜色和填充的映射
  scale_color_manual(values = c('red', 'blue')) +
  scale_fill_manual(values = c('yellow', 'green'))

这种方法通过叠加三个几何层实现：

1. 第一层绘制线条，使用颜色映射
2. 第二层绘制点标记，只显示填充色
3. 第三层绘制相同点标记，只显示边缘色

使用ggnewscale扩展包

当需要更复杂的颜色映射时，可以使用ggnewscale包来实现多个独立的颜色标度：

library(ggnewscale)

ggplot(data = data_tidy, aes(x = value, y = lat)) +
  # 第一组颜色标度：用于线条
  geom_line(aes(color = class), orientation = 'y', linewidth = 1.5) +
  scale_color_manual(values = c('red', 'blue')) +
  # 开始新的颜色标度：用于点标记
  new_scale_color() +
  # 绘制点标记，使用新的颜色标度
  geom_point(aes(color = class, fill = class), size = 4, shape = 21) +
  scale_color_manual(values = c('darkred', 'darkblue')) +
  scale_fill_manual(values = c('yellow', 'green'))

这种方法允许我们为线条和点标记分别设置完全独立的颜色映射系统，提供了更大的灵活性。

实际应用建议

在实际应用中，选择哪种方法取决于具体需求：

1. 如果只是需要简单的边缘色和填充色差异，第一种叠加方法更简单直接
2. 如果需要完全独立的颜色映射系统，或者需要添加图例说明，第二种ggnewscale方法更合适
3. 对于形状21（带边缘的圆点），记住color控制边缘，fill控制填充

通过合理组合这些技术，可以在ggplot2中创建出高度定制化的点线组合图，满足各种数据可视化的需求。