打印一些十六进制颜色以查看它们

Question

我有以下颜色：

c("#bbb487", "#066e9f", "#e2dfcc", "#4e766d", "#dd8047", "#d8b25c")

我想作一个简单的图，以便可以看到带有ggplot2R或R 的颜色。

Answer 1

您可以使用colorspace样本图

library(colorspace)
demoplot(c("#bbb487", "#066e9f", "#e2dfcc", "#4e766d", "#dd8047", "#d8b25c"), type = "bar")

Answer 2

有ggplot2你可以做

library(ggplot2)
show_colors <- function(colors) { 
  ggplot(data.frame(id=seq_along(colors), color=colors)) + 
    geom_tile(aes(id, 1, fill=color)) + 
    scale_fill_identity()
}

colors <- c("#bbb487", "#066e9f", "#e2dfcc", "#4e766d", "#dd8047", "#d8b25c")
show_colors(colors)

哪个返回

或者，您可以将其侧向旋转并打印颜色名称

show_colors2 <- function(colors) { 
  ggplot(data.frame(id=seq_along(colors), color=colors)) + 
    geom_tile(aes(1, id, fill=color)) + 
    geom_text(aes(1, id, label=color)) + 
    scale_fill_identity()
}
show_colors2(colors)

您可以做的基本图形

show_colors <- function(colors) {
  ncol <- length(colors)
  plot(0,0, ylim=c(0, 1), xlim=c(0, ncol), type="n")
  rect(0:(ncol-1), 0, 1:ncol, 1, col = colors)
}
show_colors(colors)