code:
library("RImagePalette") myfigure <- jpeg::readJPEG(file.choose()) #选择你想上传的图片,注意是jpeg格式 display_image(myfigure) mycolors <- image_palette(myfigure, n=30) scales::show_col(mycolors)