ggplot逐年比较 [英] ggplot year by year comparison

问题描述

我想制作一张比较不同年份获得的数据的图。我们的目标是在X轴上 12个月，并用每个年份的值绘制不同的行。

我使用的是下一个数据框：

 月份Marg Fiscal.Year 
 1 2009- 04-01 20904494 2009 
 2 2009-05-01 43301981 2009 
 3 2009-06-01 14004552 2009 
 ... 
 38 2012-05-01 58343271 2012 
 39 2012-06-01 38723765 2012 
 40 2012-07-01 77246753 2012 
  

我的剧情代码是：

  g < -  ggplot（data = data，stat =identity，aes（ x = Month，y = Marg））+ 
 geom_line（）+ 
 geom_point（）+ 
 geom_smooth（method =loess）+ 
 scale_x_date（breaks =1 month ，labels = date_format（％b））; 
  

但是这个图表在2009年到2012年的 x轴48个月和一行，其中显示每个值（每个月的每年不会有不同的行）。

请帮忙我解决这个问题？ （我是新的R，任何帮助将不胜感激）。

感谢您的回答！

＃示例数据
data< - read.table（text =Month Marg Fiscal 。年
2009-01-01 20904494 2009
2009-02-01 30904494 2009
2009-03-01 40904494 2009
2009-04-01 30904494 2009
2009-05-01 43301981 2009
2009-06-01 14004552 2009
2009-07-01 24004552 2009
2009-08-01 34004552 2009
2009-09-01 44004552 2009
2009-10-01 54004552 2009
2009-11-01 64004552 2009
2009-12-01 44004552 2009
2012-02-01 58343271 2012
2012-03-01 68343271 2012
2012-04-01 58343271 2012
2012-05-01 58343271 2012
2012-06-01 38723765 2012
2012-07-01 77246753 2012，
header = TRUE，sep =，nrows = 18）
数据$ MonthN < - as.numeric（格式（as.Date（数据$月），％m））＃月份数量
数据$月份< - 月份.Date（data $ Month），abbreviate = TRUE）＃Month's abbr。
$ bg < - ggplot（data = data，aes（x = MonthN，y = Marg，group = Fiscal.Year，color = Fiscal.Year））+
geom_line（）+
geom_point（）+
scale_x_discrete（breaks =数据$ MonthN，labels = data $ Month）
g

I want to produce one plot comparing data obtained in different years. The goal is having 12 months on the x axis and drawing different lines with the values for each of the years.

The data frame I'm using is the next one:

   Month             Marg            Fiscal.Year
1  2009-04-01        20904494        2009
2  2009-05-01        43301981        2009
3  2009-06-01        14004552        2009
...
38 2012-05-01        58343271        2012
39 2012-06-01        38723765        2012
40 2012-07-01        77246753        2012

My code of the plot is:

g <- ggplot(data = data, stat="identity", aes(x = Month, y = Marg)) + 
  geom_line() +
  geom_point() +
  geom_smooth(method = "loess") +
  scale_x_date(breaks = "1 month", labels = date_format("%b"));

but this plots in the x axis 48 months from 2009 to 2012, and one line in it showing each of the values (not different lines for each year for each of the months).

Could you please help me solving this issue? (I'm new with R, any help will be appreciated).

Thanks in advance for your answer!

解决方案

library(ggplot2)
# Sample data
data <- read.table(text = "Month             Marg            Fiscal.Year
                           2009-01-01        20904494        2009
                           2009-02-01        30904494        2009
                           2009-03-01        40904494        2009
                           2009-04-01        30904494        2009
                           2009-05-01        43301981        2009
                           2009-06-01        14004552        2009
                           2009-07-01        24004552        2009
                           2009-08-01        34004552        2009
                           2009-09-01        44004552        2009
                           2009-10-01        54004552        2009
                           2009-11-01        64004552        2009
                           2009-12-01        44004552        2009
                           2012-02-01        58343271        2012
                           2012-03-01        68343271        2012
                           2012-04-01        58343271        2012
                           2012-05-01        58343271        2012
                           2012-06-01        38723765        2012
                           2012-07-01        77246753        2012",
                   header=TRUE, sep="", nrows=18)
data$MonthN <- as.numeric(format(as.Date(data$Month),"%m")) # Month's number
data$Month  <- months(as.Date(data$Month), abbreviate=TRUE) # Month's abbr.

g <- ggplot(data = data, aes(x = MonthN, y = Marg, group = Fiscal.Year, colour=Fiscal.Year)) + 
     geom_line() +
     geom_point() +
     scale_x_discrete(breaks = data$MonthN, labels = data$Month)
g

这篇关于ggplot逐年比较的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！