当在一个图中绘制2个数据帧时的图例

Question

我已经绘制了positive values和negative values，正如我希望它们包含图例一样。我现在把这些放在一个情节中，以创建一个情节（我没有足够的分数链接到这个图像）。我对此非常满意 - 除了传奇。图例按照字母排序，这不是我的首选订单（与从上到下的颜色层次相同）。我尝试过尝试手动设置图例的不同方法，但迄今为止我发现的所有方法都是在绘制单个数据框时绘制的，而不是像我一样。

看来，使用scale_colour_manual不会影响这种类型的情节，是否有另一种方式做到这一点？

下面是一个非常简单的工作示例，它也提供了上述相同的行为。

data1 = data.frame(x = seq(0,20), y = c(1,4,-5,-9,-4,0,3,6,-4,3,-2,-5,8,2,1,6,7,-9,8,-4,0)) 
data2 = data.frame(x = seq(0,20), y = seq(0,20)) 

q = ggplot(NULL, aes(x = x, y = y)) 
q = q + geom_line(data = data1) 
q = q + geom_line(data = data2) 

感谢， 简

---

感谢您的答复，但我仍然没有得到，我想图。这里是我到目前为止最接近的一个链接positive and negative values - legend not as required。对于此图，我使用了两个单独的数据框，因为我使用的是不同的geom_area和geom_line位置;对于情节的积极作用，我使用：

geom_area(data = prod.data, position = "identity", alpha = 0.8) 
geom_line(data = prod.data, position = "identity") 

和情节的负部分我使用：

geom_area(data = cons.data, position = "stack", alpha = 0.8) 
geom_line(data = cons.data, position = "stack") 

然而，正如原来的问题讨论我似乎都没有控制图例的顺序。我试图合并数据帧，并设置系数的顺序，在这里我用：

geom_area(position = "stack", alpha = 0.8) 
geom_line(position = "stack") 

，我有过传奇顺序控制，但实际的情节并不像我想它。这是图positive and negative values - graph not as required。

我有量子力学闪回:-)所以任何进一步的援助非常感谢。

Answer 1

通常，当您将数据组合到一个数据框中时，ggplot的效果最佳。您提供的示例有点令人困惑 - 因为没有传说，并且不清楚您希望图例是什么。我会去了解它的方式是将数据帧相结合：

data1$group <- 1 
data2$group <- 2 
data3 <- rbind(data1, data2) 
data3$group <- factor(data3$group) 
q <- ggplot(data3, aes(x = x, y = y, group = group, color = group)) 
    + geom_line() 

然后可以使用任何标准的订购方式的传说。自动化程度较低，但通常优于常规图例，您可以使用新的data.frame和geom_text调用手动标记每一行。

传说将默认，将在因素的排序，所以重新排序的传说，你应该为了因素，或者使用factor

data3$group <- reorder(data3$group, levels = c(2, 1), ordered = TRUE) 

或使用reorder和功能手动（如sort()或rev(sort())，如果您想要逆向字母顺序）。例如，如果您想通过mean或max y值来排列因子，则还可以使用具有不同列的功能的reorder。