用ggplot2绘制矢量，添加图例

Question

我试图了解ggplot2，并且尝试了以下代码：

a=as.data.frame(c(2007:2016))
str(a)

b=runif(10, 1000, 2000) #vector
c=runif(10, 500,1000) #vector

ggplot(data=a, aes(x=a)) +
  geom_bar(aes(y=b), stat = "identity") +
  geom_line(aes(y=c), color="white", size=0.75)

那给了我这个：

为什么没有图例，我怎么有图例？

Answer 1

您需要指定填充和颜色，然后指定scale_color_manual和一些主题设置。

ggplot(data=a, aes(x=a$`c(2007:2016)`)) +
  geom_bar(aes(y = b, fill = "b"), stat = "identity") +
  geom_line(aes(y = c, group = 1, color = "c"), size = 0.75) +
  scale_colour_manual(labels = "Line", values=c("c" = "white"))+
  scale_fill_manual(labels = "Bar",values="grey")+
  theme(legend.key=element_rect(fill = "grey"),
        legend.title=element_blank()) +
  labs(x = "Date", y = "Value")