我正在用 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()
以下是此代码生成的图表 - 基本上是一组具有所需颜色填充的同心环:
我想在此图中添加一个图例条,显示从开始颜色到结束颜色的(线性)渐变,标签使用 df$f
的最小值/最大值 .
我可以从 df
手动提供开始和结束颜色 - 或者从单独的 colorRampPalette
对象(未显示)的第一个和最后一个条目提供 - 或者提供 colorRampPalette
对象的颜色数组以提供插值颜色 . 我只是不知道如何生成与主图分开的图例对象 .
有没有办法手动构建并将此类对象附加到此图上?
我试过的一些事情是探索guide_colourbar() object和 scale_colour_gradientn()
对象,但是我无法使用这些实体获取任何内容 . 有没有办法在这里使用它们?
1 回答
获得精彩传奇的最简单方法是,您需要实际将数据映射到数据中,例如
ggplot
背后的设计意图 .方法1,将
fill
映射到您的颜色变量并使用scale_identity
来使用提供的确切颜色:然而,传说仍然需要,因为它不是连续的,它以错误的方式排序,它显示颜色代码而不是标签的值 . 另外,不同颜色的映射值不等距 .
方法2,您可以使用实际的连续比例(您没有提供)以获得适当的颜色条 . 这是一个你可以尝试的尝试,我让ggplot创建一个从极端值到白色的连续比例 .