首页 文章

在ggplot2中添加手动渐变图例

提问于
浏览
0

我正在用 ggplot2 制作一个"bullseye"或"dart board"图 . 我想问一下是否有办法手动为我正在制作的图形添加渐变图例,或者是否有办法修改我的程序来添加该图例 .

这是一个可重现的数据集,可用于:

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()

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

Bullseye

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

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

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

我试过的一些事情是探索guide_colourbar() objectscale_colour_gradientn() 对象,但是我无法使用这些实体获取任何内容 . 有没有办法在这里使用它们?

1 回答

  • 3

    获得精彩传奇的最简单方法是,您需要实际将数据映射到数据中,例如 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())
    

    enter image description here

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

    方法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')
    

    enter image description here

相关问题