7

我实现了以下函数来绘制 ggplot 使用的不同颜色。它们的功能还绘制图例中的十六进制颜色值。但是，不知何故，颜色和十六进制值的分配是错误的，我不明白为什么。我对十六进制颜色进行了排序，然后将它们添加到数据框中data，然后在 ggplot2 函数中使用。我认为这可以解决问题，但事实并非如此。col我还创建了包含十六进制以及我实际上想要作为图例的 rgb 颜色值的向量，但我也在努力让它工作

ggplot_colors <- function(n, size=8, alpha=1) {
    library(grDevices)
    hues = seq(15, 375, length=n+1)
    cols_hex <- sort(hcl(h=hues, l=65, c=100)[1:n])
    cols_rgb <- col2rgb(cols_hex)
    cols_rgb <- apply(cols_rgb, 2, function(x){paste(x, collapse=",")})
    cols <- paste(cols_hex, cols_rgb, sep="; ")
    data <- data.frame(x=1:length(cols), 
                       y=1:length(cols), 
                       cols_hex=cols_hex, 
                       cols_rgb=cols_rgb, 
                       cols=cols)
    ggplot(NULL) +
      geom_point(data=data, 
                 aes(x=x, y=y, colour=cols_hex), size=size, alpha=alpha)
}

ggplot_colors(15, 8, 1)

在此处输入图像描述

作为 RGB 值 (248, 118, 109) 和十六进制值 F8766D 的红色在图例中分配了十六进制值 00B0F6

4

1 回答 1

10

由于您想为参数提供颜色名称colour=并还显示此参数的图例，您应该添加scale_colour_identity()到函数的最后一行。此比例确保提供的值将被解释为实际颜色值。breaks=cols_hex在函数中添加参数scale()将确保图例中名称的顺序。

ggplot(NULL) +     
geom_point(data=data, aes(x=x, y=y, colour=cols_hex), size=size, alpha=alpha) + 
        scale_colour_identity(guide="legend",breaks=cols_hex)

在此处输入图像描述

于 2013-02-18T11:18:57.310 回答