r - ggplot2:如何显示图例

Question

这个问题已经有答案了:

Add legend to ggplot2 line plot (4 个回答)

已关闭 2 年前。

我用 ggplot2 做了一个简单的经典情节这是两个图合二为一。然而，我在展示这个传说时遇到了困难。它没有显示图例。我没有使用熔化和 reshape 方式，我只是使用经典方式。下面是我的代码。

df <- read.csv("testDataFrame.csv")

graph <- ggplot(df, aes(A)) + 
  geom_line(aes(y=res1), colour="1") +
  geom_point(aes(y=res1), size=5, shape=12) +
  geom_line(aes(y=res2), colour="2") +
  geom_point(aes(y=res2), size=5, shape=20) +
  scale_colour_manual(values=c("red", "green")) +
  scale_x_discrete(name="X axis") +
  scale_y_continuous(name="Y-axis") +
  ggtitle("Test") 
  #scale_shape_discrete(name  ="results",labels=c("Res1", "Res2"),solid=TRUE) 

print(graph)

数据框是:

 A,res1,res2
 1,11,25
 2,29,40
 3,40,42
 4,50,51
 5,66,61
 6,75,69
 7,85,75

关于如何显示上图的图例有什么建议吗？

Answer 1

在 ggplot2 中，会针对您设置的每种美学 (aes) 显示图例；例如组、颜色、形状。为此，您必须以以下形式获取数据:

A variable value
1     res1    11
...    ...    ...
6     res1    85
7     res2    75

您可以使用 melt 通过 reshape2 来完成此操作(如下所示):

require(reshape2)
require(ggplot2)

ggplot(dat = melt(df, id.var="A"), aes(x=A, y=value)) + 
      geom_line(aes(colour=variable, group=variable)) + 
      geom_point(aes(colour=variable, shape=variable, group=variable), size=4)

例如，如果您不需要点的 color，则只需从 geom_point(aes(.)) 中删除 colour=variable >。更多图例选项请关注this link .