R语言，colordistance包，图像色彩分析

R语言，colordistance包，图像色彩分析
照片色卡
图像色卡
图像颜色三维直方图
颜色直方图

图像和色卡.png

2d三原色分布.png

2D三原色分布散点图.png

Rplot.jpeg

颜色直方图.jpg

# Sat Apr 24 00:45:53 2021 -

# 字符编码：UTF-8
# R 版本：R x64 4.0.5 for window 10
# cgh163email@163.com
# 个人笔记不负责任，拎了个梨🍐🍈
.rs.restartR()
require(colordistance)
rm(list = ls());gc()

# Sat Apr 24 00:54:04 2021 ----diy--------------------------
'~/exjpg.jpg' %>%
  plotImage()
# Sat Apr 24 01:12:40 2021 ----颜色直方图--------------------------
dev.off()
# 多图按一下回车
c('~/exjpg.jpg','~/60515982_p0.png') %>%
  getHistList(plotting = TRUE)
# Sat Apr 24 01:03:28 2021 --
dev.copy(png, "颜色直方图.png");dev.off()
# Sat Apr 24 01:14:51 2021 --end
# Sat Apr 24 01:17:41 2021 ----图像和色卡--------------------------
mycol <- c('~/exjpg.jpg') %>%
getKMeanColors(plotting = F)
mycol[["centers"]] %>% head()

c('~/exjpg.jpg') %>%
  getKMeanColors(n = 100,plotting = T)

c('~/exjpg.jpg') %>%
  getKMeanColors(n = 25,plotting = T)
dev.copy(png, "图像和色卡.png");dev.off()
# Sat Apr 24 01:25:13 2021 ----多图颜色热图--------------------------
dev.off()
getHistList(
  dir(
    system.file("extdata",
                "Heliconius/", package = "colordistance"),
    full.names = TRUE
  ),
  lower = rep(0.8, 3),
  upper = rep(1, 3)
) %>%
  getColorDistanceMatrix(plotting = FALSE) %>%
  heatmapColorDistance(main ="Heliconius color similarity")

c('~/exjpg.jpg','~/60515982_p0.png') %>%
  getHistList(plotting = F) %>%
  getColorDistanceMatrix(plotting=FALSE) %>%
heatmapColorDistance(main="Heliconius color similarity")
# Sat Apr 24 01:35:32 2021 --end
# Sat Apr 24 01:36:09 2021 -----三维交互直方图-------------------------
c('~/exjpg.jpg') %>%
  getHistList(plotting = T) %>%
plotClusters()
# 多图：
c('~/exjpg.jpg','~/60515982_p0.png') %>%
  getHistList(plotting = T) %>%
  plotClusters()
# Sat Apr 24 01:38:48 2021 --end
# Sat Apr 24 01:40:04 2021 ----2d三原色分布--------------------------
c('~/exjpg.jpg') %>%
  plotPixels(
    # main = 'aa'
    )
dev.copy(png, "2d三原色分布.png");dev.off()
# Sat Apr 24 01:51:08 2021 ---2D三原色分布散点图---------------------------
tmp=c('~/exjpg.jpg') %>%
  getHistList(plotting = T)

scatter3dclusters(tmp[['exjpg']])
scatter3dclusters(tmp[["exjpg"]],scaling = 50, plus = 0.06)
scatter3dclusters(tmp[["exjpg"]],scaling = 150, plus = 0.02)
dev.copy(png, "2D三原色分布散点图.png");dev.off()
# Sat Apr 24 01:56:19 2021 --end