ggplot2中如何独立控制散点边缘色与填充色

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

基本实现方法

最直接的方法是使用两层geom_point叠加：

1. 第一层设置填充色(fill)并隐藏边缘色(color="transparent")
2. 第二层设置边缘色(color)并隐藏填充色(fill="transparent")

library(ggplot2)
set.seed(165465)

data <- tibble(lat = 38:46,
               tot = 20 + runif(9),
               week = 10 + runif(9, min = 0, max = 5)) |> 
  pivot_longer(!lat, names_to = 'class', values_to = 'value')

ggplot(data, aes(x = value, y = lat)) +
  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 = 3.5, shape = 21) +
  scale_color_manual(values = c('red', 'blue')) +
  scale_fill_manual(values = c('yellow', 'green'))

这种方法通过叠加两个点图层，分别控制填充和边缘，实现了独立控制的效果。shape=21指定了带填充的圆形标记。

进阶方案：使用ggnewscale扩展包

当需要更复杂的颜色映射关系时，可以使用ggnewscale扩展包。它允许我们在同一个图表中使用多个独立的颜色标度：

library(ggnewscale)

ggplot(data, aes(x = value, y = lat)) +
  geom_line(aes(color = class), orientation = 'y') +
  scale_color_manual(values = c('red', 'blue')) +
  new_scale_color() +
  geom_point(aes(color = class, fill = class), size = 3, shape = 21) +
  scale_color_manual(values = c('darkred', 'darkblue')) +
  scale_fill_manual(values = c('yellow', 'green'))

这种方法更加灵活，可以分别为线条和点指定完全独立的颜色映射关系。

实际应用建议

1. 对于简单场景，使用双层geom_point叠加的方法足够且轻量
2. 当需要复杂的多变量颜色映射时，ggnewscale提供了更强大的解决方案
3. 调整shape参数可以改变标记的形状，21-25是带填充的形状
4. 通过调整size参数可以控制标记大小，使边缘效果更明显

这种技术特别适用于需要突出显示数据点同时保持与趋势线视觉关联的场景，如时间序列分析、纵向研究数据展示等。