在ggplot2中添加手动渐变图例

Question

我正在用ggplot2制作一个“靶心”或“飞镖板”情节。我想问一下是否有办法手动为我正在制作的图形添加渐变图例，或者是否有办法修改我的程序来添加该图例。

以下是可以使用的可重现数据集：

step <- 0.1
frac <- seq(0, 1, step)
df <- data.frame(l=levels(cut(0, breaks=frac)),  o=frac[1:length(frac)-1], f=c(0.000, 0.028, 0.165, 0.151, 0.149, 0.129, 0.138, 0.060, 0.090, 0.088), cols=c('#0000FF','#4343FF','#FF4343','#FF6969','#FF7070','#FFA4A4','#FF8E8E','#9D9DFF','#F0F0FF','#E8E8FF'))

这是它的样子：

> df
df
           l   o     f    cols
1    (0,0.1] 0.0 0.000 #0000FF
2  (0.1,0.2] 0.1 0.028 #4343FF
3  (0.2,0.3] 0.2 0.165 #FF4343
4  (0.3,0.4] 0.3 0.151 #FF6969
5  (0.4,0.5] 0.4 0.149 #FF7070
6  (0.5,0.6] 0.5 0.129 #FFA4A4
7  (0.6,0.7] 0.6 0.138 #FF8E8E
8  (0.7,0.8] 0.7 0.060 #9D9DFF
9  (0.8,0.9] 0.8 0.090 #F0F0FF
10   (0.9,1] 0.9 0.088 #E8E8FF

以下是生成图表的可重现代码：

library(ggplot2)
#pdf("test.pdf", width=8, height=8)
p <- ggplot() + ylim(0, 1) + geom_rect(aes(xmin=-1, ymin=df$o, xmax=1, ymax=df$o+step), fill=df$cols) + coord_polar() + theme(axis.title.x=element_blank(), axis.text.x=element_blank(), axis.ticks.x=element_blank())
print(p)
#dev.off()

以下是此代码生成的图表 - 基本上是一组具有所需颜色填充的同心环：

我想在此图中添加一个图例条，显示从开始颜色到结束颜色的（线性）渐变，标签使用df$f的最小值/最大值。

我可以从df手动提供开始和结束颜色 - 或者从单独的colorRampPalette对象（未显示）的第一个和最后一个条目提供 - 或者提供{{1的颜色数组object提供插值颜色。我只是不知道如何生成与主图分开的图例对象。

有没有办法手动构建并将此类对象附加到此图上？

我尝试过的几件事情是探索guide_colourbar() object和colorRampPalette对象，但我无法使用这些实体获取任何内容。有没有办法在这里使用它们？

Answer 1

获取精彩图例的最简单方法是，您需要实际将内容映射到数据，例如ggplot背后的设计意图。

方法1，将fill映射到您的颜色变量，然后使用scale_identity使用提供的确切颜色：

ggplot(df) + 
  ylim(0, 1) + 
  geom_rect(aes(xmin = -1, ymin = o, xmax = 1, ymax = o + step, fill = cols)) + 
  coord_polar() + 
  scale_fill_identity(guide = guide_legend())

然而，传说仍然需要，因为它不是连续的，它以错误的方式排序，它显示颜色代码而不是标签的值。此外，不同的颜色在其映射值中不是等距的。

方法2，您可以使用实际的连续刻度（您尚未提供）以获得合适的颜色条。这是一个你可以尝试的尝试，我让ggplot创建一个从极值到白色的连续比例。

ggplot(df) + 
  ylim(0, 1) + 
  geom_rect(aes(xmin = -1, ymin = o, xmax = 1, ymax = o + step, fill = f)) + 
  coord_polar() + 
  scale_fill_gradient2(midpoint = mean(range(df$f)), low = '#0000FF', high = '#FF4343')