Mô phỏng bảng màu mặc định của ggplot2

Tôi có thể sử dụng chức năng nào để mô phỏng bảng màu mặc định của ggplot2 cho số lượng màu mong muốn. Ví dụ: đầu vào 3 sẽ tạo ra một vectơ ký tự có màu HEX với các màu sau:

Nó chỉ là những màu sắc cách đều nhau xung quanh bánh xe màu, bắt đầu từ 15:

gg_color_hue <- function(n) {
  hues = seq(15, 375, length = n + 1)
  hcl(h = hues, l = 65, c = 100)[1:n]
}

Ví dụ:

n = 4
cols = gg_color_hue(n)

dev.new(width = 4, height = 4)
plot(1:n, pch = 16, cex = 2, col = cols)

Đây là kết quả từ

library(scales)
show_col(hue_pal()(4))

show_col(hue_pal()(3))

Những câu trả lời này đều rất hay, nhưng tôi muốn chia sẻ một điều khác mà tôi đã khám phá trên stackoverflow thực sự khá hữu ích, đây là liên kết trực tiếp

Về cơ bản, @DidzisElferts cho thấy cách bạn có thể nhận được tất cả các màu sắc, tọa độ, v.v. mà ggplot sử dụng để xây dựng cốt truyện bạn đã tạo. Rất đẹp!

p <- ggplot(mpg,aes(x=class,fill=class)) + geom_bar()
ggplot_build(p)$data
[[1]]
     fill  y count x ndensity ncount  density PANEL group ymin ymax xmin xmax
1 #F8766D  5     5 1        1      1 1.111111     1     1    0    5 0.55 1.45
2 #C49A00 47    47 2        1      1 1.111111     1     2    0   47 1.55 2.45
3 #53B400 41    41 3        1      1 1.111111     1     3    0   41 2.55 3.45
4 #00C094 11    11 4        1      1 1.111111     1     4    0   11 3.55 4.45
5 #00B6EB 33    33 5        1      1 1.111111     1     5    0   33 4.55 5.45
6 #A58AFF 35    35 6        1      1 1.111111     1     6    0   35 5.55 6.45
7 #FB61D7 62    62 7        1      1 1.111111     1     7    0   62 6.55 7.45

Từ trang 106 của cuốn sách ggplot2 của Hadley Wickham:

Bảng màu mặc định, scale_colour_hue chọn các màu cách đều nhau xung quanh bánh xe màu hcl.

Với một chút kỹ thuật đảo ngược, bạn có thể xây dựng chức năng này:

ggplotColours <- function(n = 6, h = c(0, 360) + 15){
  if ((diff(h) %% 360) < 1) h[2] <- h[2] - 360/n
  hcl(h = (seq(h[1], h[2], length = n)), c = 100, l = 65)
}

Chứng minh điều này trong barplot:

y <- 1:3
barplot(y, col = ggplotColours(n = 3))