suppressMessages(source(here::here("R/load.R")))
source(here::here("R/get_colorPal.R"))
source(here::here("R/get_img_color.R"))

寻找马尔斯绿

目前回答了这个 知乎问题。 从抖音的一个短视频了解到这个颜色。 参考维基百科

  1. 马尔斯绿
  2. Marrs Green
  3. "#008C8C"
library(ggplot2)
plot_color <- function(color_code = "#008C8C"){
    color_filled <- element_rect(fill = color_code)
    ggplot() +
        theme(
            plot.background = color_filled,
            panel.background = color_filled
        )
}
plot_color("#008C8C")

但是为了求证,我找了下相关原图进行验证,发现并不是,因此实践中,用这个颜色可能需要注意下。

参考维基百科中两篇介绍的报道中的图片。

img1_path <- "refs/marrs-green-thecourier.png"
img2_path <- "refs/marrs-green-tribuneindia.png"
load.image(img1_path) %>% plot

load.image(img2_path) %>% plot

get_img_color(img1_path)

get_img_color(img2_path)

  1. [ ] 感觉图像颜色有点不对,好好研究 Imperfect 的函数。