6

我有以下示例：

data <- structure(list(a = c(-1.25549186262767, -0.840855480786298, -
0.635371312524283, 
-0.602907981454667, -0.472166385166945, -0.285773634866154, 0.0701427664273268, 
0.138108224803923, 1.38435934347858, 1.71144087270237), b = c(-3.44400412039417, 
0.675644682353751, -1.04793816522475, -7.38303347186651, 2.34519166466874, 
0.334780748573386, 4.76806919070976, 4.8633533150074, 3.50106026731172, 
-1.27172351054143), c = c(-3.02376206439776, -2.56390769080574, 
-1.48659913867609, -1.27976202274701, -0.368725655874139, 1.08537150160227, 
3.98619381956471, 4.50687017428731, 4.10341582203292, -1.61769414438858
), d = c(5.71851494232005, 2.90539833491649, 2.75195159216204, 
2.73478241733301, 2.65941820902101, 2.60630235726839, 3.34836154776286, 
3.62938300664006, 4.61153521538016, 5.56230567213863), e = c(8.98703236551896, 
4.5660296657415, 4.32487774825464, 4.29789523068949, 4.17945528847841, 
4.09598014088541, 5.26217626511884, 5.70382046327322, 7.24733897758039, 
8.74153894964533)), .Names = c("a", "b", "c", "d", "e"), row.names = c(NA, 
-10L), class = "data.frame")

ggplot(data, aes(x=a, y=b)) + geom_point() + 
    geom_line(aes(x=a, y=c)) + 
    geom_line(aes(x=a, y=(c - d), colour="red")) +
    geom_line(aes(x=a, y=(c + d), colour="red")) +
    geom_line(aes(x=a, y=(c - e), colour="blue")) +
    geom_line(aes(x=a, y=(c + e), colour="blue"))

我希望标签是“d”和“e”，但它们却被赋予了“颜色”字段的值。两个问题：

1）我怎样才能完全消除传说？2）如果我想包含图例，如何将其设置为特定值而不是颜色？

4

3 回答 3

8

这里要记住的重要一点是，其中的项目aes()会将数据映射到美学。如果您要设置一个常量值，那么您可以将该信息移到aes(). 对您的代码稍作修改会产生：

ggplot(data, aes(x=a, y=b)) + geom_point() + 
geom_line(aes(x=a, y=c)) + 
geom_line(aes(x=a, y=(c - d)), colour="red") +
geom_line(aes(x=a, y=(c + d)), colour="red") +
geom_line(aes(x=a, y=(c - e)), colour="blue") +
geom_line(aes(x=a, y=(c + e)), colour="blue")

这给了你你所追求的，没有任何传说。我喜欢@koshke 在上面包含一个图例的方法，所以不会重复。您可以采取的另一种方法是在调用之外执行数据操作ggplot2()，然后melt()在绘图之前将其转换为长格式。这将缩短您对 的调用，ggplot()因为您可以摆脱对 的多次调用geom_line()，但显然存在预处理数据的开销。对于这个问题，可能是 6 合一，另外 1/2 打，但是对于未来的问题要记住一些事情。

于 2011-01-19T05:39:47.790 回答
5

这是你想做的吗？

ggplot(data, aes(x=a, y=b)) + geom_point() + 
    geom_line(aes(x=a, y=c)) + 
    geom_line(aes(x=a, y=(c - d), colour="d")) +
    geom_line(aes(x=a, y=(c + d), colour="d")) +
    geom_line(aes(x=a, y=(c - e), colour="e")) +
    geom_line(aes(x=a, y=(c + e), colour="e")) +
    scale_colour_manual(name="legend title", 
                        values=c("red", "blue"),
                        breaks=c("d", "e"))
于 2011-01-19T04:55:37.733 回答
2

也可以通过添加+ opts(legend.position = "none")选项来消除标签。

于 2011-01-19T08:57:53.140 回答