ggplot(mpg, aes(displ, hwy)) + geom_point(aes(color = drv)) ggplot(mpg, aes(displ, hwy)) + geom_point(aes(color = drv)) + scale_color_brewer(palette = "Set1")

别忘了更简单的技巧。如果颜色只有少数几种，你可以添加一个冗余的形状映射。这也有助于确保你的图形在黑白打印下仍然可以解读：

ggplot(mpg, aes(displ, hwy)) + geom_point(aes(color = drv, shape = drv)) + scale_color_brewer(palette = "Set1")

ColorBrewer 标度在线文档位于 http://color brewer2.org/，并通过 Erich Neuwirth 编写的 RColorBrewer 包在 R 中提供。图 22-2 展示了所有调色板的完整列表。如果你的分类值是有序的，或者有一个“中间值”，那么顺序型（上方）和发散型（下方）调色板尤其有用。当你使用 cut() 将连续变量转换为分类变量时，通常会出现这种情况。