ggplot颜色按因子水平，一些颜色非常相似，无法区分某些组的点

Question

我使用以下代码来获取图表。该图的问题是d = 330421，d = 330500和d = 330623的颜色非常相似，很难区分哪个点属于哪个组。

ggplot(subdt2, aes(x=year, y=aniHusb, color = d)) + geom_point()

Answer 1

您可以尝试使用可生成具有可区分颜色的绘图：

library(randomcoloR)
n <- length(unique(subdt2$d))
palette <- unname(distinctColorPalette(n))
ggplot(subdt2, aes(x=year, y=aniHusb, color = d)) + 
   geom_point() + scale_color_manual(values=palette)

或使用RColorBrewer包：

library(RColorBrewer)
ggplot(subdt2, aes(x=year, y=aniHusb, color = d)) + 
   geom_point() + scale_colour_brewer(palette = "Set3")

示例：

ggplot(iris[iris$Species=='setosa',], aes(x=Sepal.Length, y=Sepal.Width, color = as.factor(Petal.Length))) + 
    geom_point() + scale_colour_brewer(palette = "Set3")

简介：

n <- length(unique(iris[iris$Species=='setosa','Petal.Length']))
palette <- unname(distinctColorPalette(n))

ggplot(iris[iris$Species=='setosa',], aes(x=Sepal.Length, y=Sepal.Width, color = as.factor(Petal.Length))) + 
    geom_point() + scale_color_manual(values=palette)