模拟ggplot2默认调色板

作者: v-star*위위
发布时间: 2025-02-06 06:02:03 (4天前)
转自：

4 条回复

0#
回复此人
小鬼 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 来自Hadley Wickham的ggplot2书的第106页： </p> <BLOCKQUOTE> <P> 默认颜色方案scale_colour_hue选择均匀间隔的色调围绕hcl色轮。 </p> </BLOCKQUOTE> <P> 通过一些逆向工程，您可以构建此函数： </p> <pre> <code> 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) } </code> </pre> <P> 在条形图中证明这一点： </p> <pre> <code> y <- 1:3 barplot(y, col = ggplotColours(n = 3)) </code> </pre> <P> <img src =“https://i.stack.imgur.com/OcqmF.png”alt =“在此输入图像说明”/> </p> </DIV>

编辑
1#
回复此人
大魔王 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 这是结果 </p> <pre> <code> library(scales) show_col(hue_pal()(4)) </code> </pre> <P> <a href="https://i.stack.imgur.com/2FBDo.png"> <img src =“https://i.stack.imgur.com/2FBDo.png”alt =“四色ggplot”/> </A> </p> <pre> <code> show_col(hue_pal()(3)) </code> </pre> <P> <a href="https://i.stack.imgur.com/j9ffs.png"> <img src =“https://i.stack.imgur.com/j9ffs.png”alt =“三色ggplot”/> </A> </p> </DIV>

编辑
2#
回复此人
Ni | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 这些答案都非常好，但是我想分享我在stackoverflow上发现的另一个非常有用的东西，这里是 <a href="https://stackoverflow.com/a/25211125/4582054"> 直接链接 </A> </p> <P> 基本上，@ DidzisElferts展示了如何获得ggplot用于构建您创建的绘图的所有颜色，坐标等。非常好！ </p> <pre> <code> 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 </code> </pre> </DIV>

编辑

登录后才能参与评论