如何解决R:图例未绘制在折线图上
我有8个不同的数据集popA
,popB
,popC
,popD
,popE
,popF
,{{1 }}和popG
表示特定城市多年的增长率。每个数据集均包含年份(标记为popH
的列和增长率({{1}标记为Period
,A
标记为popA
的列),依此类推上)。
“ popA”的采样数据如下:
B
我按如下所示绘制数据:
popB
已根据需要绘制了数据,但是图例存在问题-该图未显示。为了能够绘制图例,我需要对代码进行哪些修改?
编辑:这是我输入的详细数据。
Year A
1 2005 0.05
2 2006 0.06
3 2007 0.04
4 2008 0.03
5 2009 0.09
6 2010 0.08
7 2011 0.07
8 2012 0.04
9 2013 0.06
解决方法
这是一种方法。如果您合并数据文件并将数据设置为以下格式:
pop_all <- data.frame(
Period = c(2005,2006,2007,2008,2009,2005,2009),Growth_Rate = c(.05,.06,.04,.03,.09,.08,.07,.05),City = c("A","A","B","B")
)
Period Growth_Rate City
1 2005 0.05 A
2 2006 0.06 A
3 2007 0.04 A
4 2008 0.03 A
5 2009 0.09 A
6 2005 0.08 B
7 2006 0.07 B
8 2007 0.04 B
9 2008 0.06 B
10 2009 0.05 B
您可以简化代码很多。有关将数据框与常用列名结合在一起的方法,请查看此post。
要获得颜色图例,您的美学color
中应该有aes
。您可以使用scale_colour_manual
指定颜色。
library(ggplot2)
ggplot(data = pop_all,aes(x = Period,y = Growth_Rate,color = City,group = City)) +
geom_line() +
labs(title = "Growth Rates by City",x = "Time Periods",y = "Growth Rate (Percent %)") +
theme(plot.title = element_text(hjust = 0.5),plot.subtitle = element_text(hjust = 0.5)) +
scale_y_continuous(breaks = seq(1.1,3.0,.05)) +
scale_colour_manual(name = "City",labels = c("A","B"),values = c("black","red"))
图解