如何使用ggplot绘制色轮？-解网

问：

我正在阅读“ggplot2 - Elegant Graphics for Data Analysis”（Wickham，2009）一书，“缩放”部分（第 32 页）是这样说的：

然后，缩放涉及将数据值映射到此空间中的点。有很多方法可以做到这一点，但在这里，因为 cyl 是分类的变量我们将值映射到色轮上均匀分布的色调，如如图 3.4 所示。当变量连续的。这些转换的结果如表 3.4 所示，其中包含对计算机有意义的值。

enter image description here

书中没有详细解释如何得到这个表3.4，更不用说图3.4了。内置数据库是 mpg。有人知道如何获得这个表格和图表吗？提前致谢。

R 图形颜色 ggplot2

# Create hsv grid
d = expand.grid(h=seq(0,1,0.01), s=seq(0,1,0.05), v=1)

p1 = ggplot() +
          coord_polar(theta="x") +
          scale_x_continuous(breaks=NULL) +
          scale_y_continuous(breaks=NULL) +
          scale_fill_identity() +
          geom_rect(data=d, mapping=aes(xmin=h, xmax=h+resolution(h), 
                                        ymin=s, ymax=s+resolution(s), 
                                        fill=hsv(h,s,v)))

您可以通过对和值使用更精细的网格来获得更平滑的颜色过渡，但渲染绘图需要很长时间。您可以通过将值设置为介于 0 和 1 之间的值来更改亮度。（根据 @BrodieG 的评论，设置 v=1/2 以获得 Hadley 的 ggplot2 书中人物的亮度级别。hsv

下面是使用步长为 0.001 的值（同时将步长保持在 0.05）的图版本。在我相对较新的Macbook Pro上渲染花了几分钟时间，但沿坐标的过渡非常平滑：hsh

png("Colour wheel.png", 2000, 2000) 
p1
dev.off()

enter image description here

若要获取颜色表，可以使用返回十六进制颜色值的函数。例如：hsv()

# Make up some hsv colors
colors = data.frame(h=seq(0.1,0.5,length.out=6), 
                    s=seq(0.5,0.9,length.out=6), 
                    v=c(.5,.5,.5,.9,.9,.9))

# Convert to hexadecimal
apply(colors, 1, function(x) hsv(x[1],x[2],x[3]))
[1] "#806640" "#7A8036" "#50802B" "#3CE642" "#29E68B" "#17E6E6"

# Plot them to see what they look like
plot(1:6,rep(1,6), pch=15, cex=5, col=apply(colors, 1, function(x) hsv(x[1],x[2],x[3])))

library(ggplot2)
r  <- seq(0,1,length=201)
th <- seq(0,2*pi, length=201)
d  <- expand.grid(r=r,th=th)
gg <- with(d,data.frame(d,x=r*sin(th),y=r*cos(th),
                        z=hcl(h=360*th/(2*pi),c=100*r, l=65)))
ggplot(gg) +
  geom_point(aes(x,y, color=z), size=3)+
  scale_color_identity()+labs(x="",y="") +
  coord_fixed()

这将在几秒钟内呈现。此参考指出默认亮度 l=65。

如何使用ggplot绘制色轮？

How to plot a colour wheel by using ggplot?

评论

评论

评论