ggplot year by year comparison

前端 未结 1 1458
梦谈多话
梦谈多话 2020-12-15 14:08

I want to produce one plot comparing data obtained in different years. The goal is having 12 months on the x axis and drawing diffe

相关标签:
1条回答
  • 2020-12-15 14:49
    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
    

    enter image description here

    0 讨论(0)
提交回复
热议问题