Fatal编程技术网
  • r/
  • R：图例未在线图上绘制

R：图例未在线图上绘制

r

R：图例未在线图上绘制,r,ggplot2,R,Ggplot2,我有8个不同的数据集，分别是某个特定城市多年增长率的popA，popB，popC，popE，popF，popG，和popH。每个数据集包含一列年份（标记为期间和一列增长率（标记为a表示popA，标记为B表示popB等等） “`popA`的示例数据如下： 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

我有8个不同的数据集，分别是某个特定城市多年增长率的
popA
，
popB
，
popC
，
popE
，
popF
，
popG
，和
popH
。每个数据集包含一列年份（标记为
期间
和一列增长率（标记为
a
表示
popA
，标记为
B
表示
popB
等等）

“`popA`的示例数据如下：

  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

LG <- ggplot() + 
  geom_line(aes(x = Period, y = A, group = 1), 
            size = 0.8, colour = "black", data = popA) +
  geom_line(aes(x = Period, y = B, group = 1),
            size = 0.8, colour = "red",data = popB) +
  geom_line(aes(x = Period, y = C, group = 1),
            size = 0.8, colour = "orange",data = popC) +
  geom_line(aes(x = Period, y = D, group = 1),
            size = 0.8, colour = "yellow",data = popD) +
  geom_line(aes(x = Period, y = E, group = 1),
            size = 0.8, colour = "green",data = popE) +
  geom_line(aes(x = Period, y = F, group = 1),
            size = 0.8, colour = "blue",data = popF) +
  geom_line(aes(x = Period, y = G, group = 1),
            size = 0.8, colour = "navy blue",data = popG) +
  geom_line(aes(x = Period, y = H, group = 1),
            size = 0.8, colour = "violet",data = popH) 

LG + 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_discrete(name = "City", 
                        labels = c("A", "B", "C", "D",
                                   "E", "F", "G", "H"))
我将数据绘制如下：

  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

LG <- ggplot() + 
  geom_line(aes(x = Period, y = A, group = 1), 
            size = 0.8, colour = "black", data = popA) +
  geom_line(aes(x = Period, y = B, group = 1),
            size = 0.8, colour = "red",data = popB) +
  geom_line(aes(x = Period, y = C, group = 1),
            size = 0.8, colour = "orange",data = popC) +
  geom_line(aes(x = Period, y = D, group = 1),
            size = 0.8, colour = "yellow",data = popD) +
  geom_line(aes(x = Period, y = E, group = 1),
            size = 0.8, colour = "green",data = popE) +
  geom_line(aes(x = Period, y = F, group = 1),
            size = 0.8, colour = "blue",data = popF) +
  geom_line(aes(x = Period, y = G, group = 1),
            size = 0.8, colour = "navy blue",data = popG) +
  geom_line(aes(x = Period, y = H, group = 1),
            size = 0.8, colour = "violet",data = popH) 

LG + 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_discrete(name = "City", 
                        labels = c("A", "B", "C", "D",
                                   "E", "F", "G", "H"))
以下是一种方法。如果您组合数据文件并将数据放入此格式：

pop_all <- data.frame(
  Period = c(2005,2006,2007,2008,2009,2005,2006,2007,2008,2009),
  Growth_Rate = c(.05,.06,.04,.03,.09,.08,.07,.04,.06,.05),
  City = c("A", "A", "A", "A", "A", "B", "B", "B", "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
绘图

这里有一种方法。如果您将数据文件合并并将数据放入此格式：

pop_all <- data.frame(
  Period = c(2005,2006,2007,2008,2009,2005,2006,2007,2008,2009),
  Growth_Rate = c(.05,.06,.04,.03,.09,.08,.07,.04,.06,.05),
  City = c("A", "A", "A", "A", "A", "B", "B", "B", "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
绘图

能否请您添加一些数据以重现该问题？我们不知道什么是
popA
！要出现在图例中，您可能希望
颜色
符合您的审美（
aes
），而不是超出它的范围。此外，您可能需要考虑简化您的代码-您可以组合您的数据集吗（
popA
，
popB
等）我刚刚为popA添加了一个数据样本。这回答了你的问题吗？你可以添加一些数据来重现这个问题吗？我们不知道什么是
popA
！要出现在图例中，你可能需要
颜色
来体现你的审美（
aes
），而不是在它之外。此外，您可能想考虑简化您的代码-您可以组合您的数据集（
popA
，
popB
，等等）一组，包括一列，指出哪个城市？我刚刚为popA添加了一个数据样本。这是否回答了您的问题？当我运行此程序时，我得到了错误geom_路径：每个组只包含一个观察值。您需要调整组美学吗？我使用了我自己的数据，不确定为什么会出现错误。当我在aes中添加组=1时，p很多事情都搞砸了。我刚刚在问题中包括了我的实际数据，它包括了所有8个数据集。我使用了这些实际数据，并遵循了您的示例。在
aes
中添加
group=City
。我将编辑答案…当我运行这个时，我得到了错误的几何路径：每个组只包含一个观察。您需要吗d调整组美学？我使用了我自己的数据，不确定为什么会出现这种错误。当我在aes中添加组=1时，绘图会乱七八糟。我刚刚在问题中包含了我的实际数据，它包括所有8个数据集的组合。我使用了这些实际数据，并遵循了您的示例。在
aes
中添加
group=City
我会…我会编辑答案。。。