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
# 個人筆記不負(fù)責(zé)任，拎了個梨????
.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