5

我想在 x 轴上生成一个重新排序月份的图（而不是从一月开始到十二月结束，我想从四月开始到三月结束）。

我的数据是这样的：

          Month         An              Fiscal.Year Month.Number Month.Name
    1     2009-04-01    40488474        2009        4            Apr
    2     2009-05-01    53071971        2009        5            May
    3     2009-06-01    24063572        2009        6            Jun
    ...
    44    2012-11-01    39457771        2012        11           Nov
    45    2012-12-01    44045572        2012        12           Dec
    46    2013-01-01    90734077        2012        1            Jan

我制作情节的代码是：

g <- ggplot(data = data, aes(x = Month.Number, y = An)) +
     geom_line(aes(group = Fiscal.Year, colour = factor(Fiscal.Year))) +    
     scale_x_discrete(
       name = "Month", 
       breaks = data$Month.Number,
       labels = data$Month.Name
     ) +
     scale_y_continuous();

但结果是从一月到十二月按月排序的图，而不是我想要的从四月到三月的图。我已经尝试了 scale_x_discrete 中的 limits 选项，但我认为这只是重新排序 x 轴标签，而不是真实数据。

请你帮助我好吗？

提前感谢您的回答！

4

2 回答 2

5

您必须重新排序 的因子水平Month.Name。假设df是你的data.frame：

df$Month.Name <- factor( df$Month.Name, levels = c( "Apr", "May", ..., "Feb", "Mar" ) )
g <- ggplot(data = df, aes(x = Month.Name, y = An) ) +
     geom_line(aes(group = Fiscal.Year, colour = factor(Fiscal.Year))) +    
     scale_x_discrete( name = "Month" ) +
     scale_y_continuous();

或者你可以改变Month.Number这样，Apr 是 1，May 是 2 等等......

于 2012-11-25T21:11:42.690 回答
2

在绘图之前运行：

data$Month.Number <- ((data$Month.Number+8) %% 12) + 1
于 2012-11-25T21:26:17.280 回答