R: как настроить маркировку легенд ggplot2

Question

У меня есть сюжет, как показано ниже, с помощью ggplot2 (код прилагается), но мне интересно, как я могу изменить легенду в правильном порядке - наличие sp (spring) происходит перед au (осень). Я хочу, чтобы легенда была похожа: 2008 весна, осень 2008 года, весна 2009 года, осень 2009 года ... и т. Д. Но то, что у меня сейчас есть, - 2008au, 2008sp, ... и т. Д. Я попытался добавить scale_fill_discrete, но он не работает.

ggplot(derivative_noHS, aes(x=Date, y=derv, linetype = Season)) + 
geom_line() + 
scale_linetype_manual(values = c("dashed","solid","dashed","solid","dashed","solid","dashed", 
           "solid","dashed","solid","dashed","solid","dashed","solid"))+ 
facet_wrap(~Market, scales="free_y")+ geom_hline(aes(yintercept = positive.cut), derivative_noHS)+ 
geom_hline(aes(yintercept = zero), 
derivative_noHS)+ 
geom_hline(aes(yintercept = negative.cut), derivative_noHS) + ggtitle("Figure 2 - Derivatives of Market Indices")+ 
    scale_fill_discrete(breaks=c("2008sp","2008au","2009sp","2009au","2010sp","2010au","2011sp", 
          "2011au","2012sp","2012au","2013sp","2013au","2014sp","2014au"), 
        labels = c("2008sp","2008au","2009sp","2009au","2010sp","2010au","2011sp", 
          "2011au","2012sp","2012au","2013sp","2013au","2014sp","2014au")) + 
ylab("Derivative Values") 

Answer 1

Вы можете попробовать ordered перед вызовом ggplot()

derivative_noHS$Season <- ordered(derivative_noHS$Season, c("2008sp", "2008au", "2009sp", 
                  "2009au", "2010sp", "2010au", 
                  "2011sp", "2011au", "2012sp", 
                  "2012au", "2013sp", "2013au", 
                  "2014sp", "2014au"))