使用可变列名进行ggplot分面绘图时，如何保持颜色映射正确？

你的问题核心在于：当用aes_string直接引用全局数据集的列计算颜色时，这个计算是基于整个数据集的，而分面后ggplot会重新排序数据以匹配分面分组，导致颜色和分面内的点不对应。下面给你几个不用提前指定分面顺序的解决方案，从易到难推荐：

方法一：提前在数据框中创建颜色分组变量（最推荐） #

把颜色的判断逻辑直接加到数据框里，让每个点的颜色属性和自身数据绑定，这样不管分面怎么排序，颜色都会自动匹配：

# 先给数据添加颜色分组列
example_data$cross_quadrant <- sign(example_data$x) != sign(example_data$y)

# 用aes_string引用这个新列
ggplot(example_data, aes_string(x='x', y='y', colour='cross_quadrant')) +
  geom_point() +
  geom_hline(yintercept=0) +
  geom_vline(xintercept=0) +
  guides(col=F) +
  facet_wrap(~facet)

这种方式逻辑最清晰，后续调试和修改也方便，完全不用考虑分面的顺序问题。

方法二：用.data代词动态指定列（ggplot2 3.0+ 推荐） #

如果不想修改原始数据，可以用ggplot2的.data代词，结合标准的aes()函数来动态引用列名，同时在aes内部计算颜色逻辑——这个计算是针对每一行数据的，分面时会自动适配：

# 假设你的动态列名存在变量里
x_col <- "x"
y_col <- "y"

ggplot(example_data, aes(
  x = .data[[x_col]], 
  y = .data[[y_col]],
  colour = sign(.data[[x_col]]) != sign(.data[[y_col]])
)) +
  geom_point() +
  geom_hline(yintercept=0) +
  geom_vline(xintercept=0) +
  guides(col=F) +
  facet_wrap(~facet)

这种写法更现代，不需要依赖aes_string，同时保留了动态指定列名的灵活性。

方法三：让aes_string在数据环境中计算颜色逻辑 #

如果你坚持要用aes_string，可以把颜色的判断逻辑写成字符串表达式，这样ggplot会在数据自身的环境中计算，而不是全局环境：

ggplot(example_data, aes_string(x='x', y='y', colour='sign(x) != sign(y)')) +
  geom_point() +
  geom_hline(yintercept=0) +
  geom_vline(xintercept=0) +
  guides(col=F) +
  facet_wrap(~facet)

这里的关键是把sign(x) != sign(y)作为字符串传入，而不是直接用sign(example_data[['x']])——后者会在全局环境计算整个数据集的结果，和分面后的行顺序不匹配。

内容的提问来源于stack exchange，提问作者Niek de Klein