R ggplot实现圆形点动态填充色调整与自定义尺寸设置

点分层着色失效的核心原因 #

• 形状选择错误：shape = 16 是无分层的纯实心圆形，不存在独立的外边框、内部填充通道，无论调整color还是fill参数，整个圆点都会被统一着色，根本无法实现“红色边框+条件黄色填充”的分层效果。需替换为shape = 21——这是ggplot2内置的带独立轮廓、独立填充的圆形，其中color参数控制外边框颜色，fill参数控制内部填充色，完全匹配你的样式需求。
• 映射逻辑错误：之前的代码将color = 'Red'写在geom_point的全局固定参数里，没有将“profit是否小于2”的分类判断接入geom_point的aes()美观度映射中，后续搭配的scale_colour_manual没有对应的映射变量，自然不会生效。
• 低级代码错误：调试代码中误将示例数据框df写为test_df，未提前定义该对象的情况下运行代码会直接报错，无法触发后续的样式调整逻辑。

跨图统一尺寸映射的实现逻辑 #

你的自定义分段尺寸规则完全可行，之前出现尺寸不统一的根源是：每个子图单独筛选数据后，scale_size_continuous会根据当前子集的sale值范围自动调整映射区间，不同产品的sale取值范围不同，最终的点尺寸基准自然不一致。
修正思路是基于全量数据集提前计算每个观测对应的点尺寸，不依赖每个子集的自动缩放，确保不管筛选哪个产品的数据，尺寸规则完全统一。

可直接运行的完整代码 #

library(ggplot2)
library(dplyr)

# 全量数据预处理：提前完成分类标识、统一尺寸计算
df <- df %>%
  # 生成用于填充色映射的profit高低分类
  mutate(profit_type = if_else(profit < 2.0, "lower_than_2", "normal")) %>%
  # 按自定义规则计算全局统一的点尺寸
  mutate(custom_size = case_when(
    sale <= 1.9 ~ 5,
    sale > 1.9 & sale <= 10 ~ scales::rescale(sale, to = c(10, 20), from = c(1.9, 10)),
    sale > 10 & sale <= 20 ~ 25,
    sale > 20 ~ 30
  ))

# 产品A的绘图示例
ggplot() +
  geom_point(
    data = df %>% filter(product_id == "A"),
    aes(
      x = year,
      y = profit,
      size = custom_size,
      fill = profit_type
    ),
    # 固定所有点的外边框为红色
    shape = 21,
    color = "Red"
  ) +
  # 直接使用提前计算好的固定尺寸，关闭自动缩放
  scale_size_identity(guide = "none") +
  # 自定义填充色映射：低于2的profit对应黄色填充，其余为红色填充
  scale_fill_manual(
    values = c("lower_than_2" = "Yellow", "normal" = "Red"),
    guide = "none"
  ) +
  labs(x = "Year", y = "Profit")

后续绘制B、C产品图的注意事项 #

• 三个图完全共用同一套数据预处理逻辑，分别筛选对应product_id的数据即可，因为尺寸、颜色的计算都是基于全量数据完成的，跨图的比例、规则完全统一，不会出现尺度漂移。
• 可根据实际需求调整aes()内的x、y映射，匹配最初设定的“x轴为profit、y轴为year”的坐标要求，不影响整体映射逻辑。

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