我的问题与R: Custom Legend for Multiple Layer ggplot和Format legend for multiple layers ggplot2密切相关, 即:我想为多层绘图创建自定义图例。但是,有一个细微的差别:在最初的问题中,期望的效果是从两种不同的分组方法中分离出来:fill
这color
就是为什么可以使用两个不同的scale_XXX
函数的原因。在我的例子中,我创建了一个包含点(一层)和线(第二层)的图。两层都按颜色区分:
x <- seq(0, 10, .1)
y <- sin(x)
lbl <- ifelse(y > 0, 'positive', 'non-positive')
data.one <- data.frame(x=x, y=y, lbl=lbl)
data.two <- data.frame(x=c(0, 10, 0, 10), y=c(-0.5, -0.5, 0.5, 0.5), classification=c('low', 'low', 'high', 'high'))
plt <- ggplot(data.one) + geom_point(aes(x, y, color=lbl)) + scale_color_discrete(name='one', guide='legend')
plt <- plt + geom_line(data=data.two, aes(x, y, color=classification)) + scale_color_discrete(name='two', guide='legend')
print(plt)
结果如下:
我想要的是分离点和线的图例,使图例看起来像这样:
我找不到一种方法来针对我的情况采用引用的问题的方法。有任何想法吗?