16进制颜色

library(ggplot2)
library(plotly)

Attaching package: 'plotly'

The following object is masked from 'package:ggplot2':

    last_plot

The following object is masked from 'package:stats':

    filter

The following object is masked from 'package:graphics':

    layout

color_data <- data.frame(  
  hue = rep(seq(0, 1, length.out = 36), each = 66), 
  saturation = rep(c(rep(seq(0, 1, length.out = 11), each = 6), rep(seq(1, 0, length.out = 11), each = 6)), length.out = 2376), 
  value = rep(c(seq(0.25, 1, length.out = 6), seq(1, 0.25, length.out = 6)), length.out = 2376),
  x = rep(c(seq(1, 66), seq(66, 1, by = -1)),
          length.out = 2376
          ),
  y = rep(seq(1, 36), each = 66)
  ) 
color_data$color <- hsv(h = color_data$hue, 
                        s = color_data$saturation, 
                        v = color_data$value) 

p <- ggplot(color_data, aes(x, y, fill = color)) +
  geom_raster() +
  scale_fill_identity() +
  theme_void()

ggplotly(p, tooltip = "color") |> 
  layout(showlegend = FALSE)