Rotazione testo x etichetta nel ggplot

Question

Il codice qui sotto dovrebbe ruotare e allineare le etichette di testo su l'asse x, ma per qualche motivo non:

ggplot(res, aes(x=TOPIC,y=count), labs(x=NULL)) + 
    scale_y_continuous(limits=c(0,130),expand=c(0,0)) + 
    scale_x_discrete("",labels=c("ANA"="Anatomy","BEH"="Behavior","BOUND"="Boundaries", 
          "CC"="Climate change","DIS"="Disease","EVO"="Evolution", 
          "POPSTAT"="Pop status","POPABU"="Pop abundance", 
          "POPTR"="Pop trend","HARV"="Harvest","HAB"="Habitat", 
          "HABP"="Habitat protection","POLL"="Pollution", 
          "ZOO"="Captivity","SHIP"="Shipping","TOUR"="Tourism", 
          "REPEC"="Reprod ecology","PHYS"="Physiology","TEK"="TEK", 
          "HWC"="HWC","PRED"="Predator-prey","METH"="Methods", 
          "POPGEN"="Pop genetics","RESIMP"="Research impact", 
          "ISSUE"="Other","PROT"="Protection","PA"="Protected areas", 
          "PEFF"="Protection efficiency","MINOR"="Minor")) + 
    theme(axis.text.x=element_text(angle=90,hjust=1)) + 
    geom_bar(stat='identity') + 
    theme_bw(base_size = 16) + 
    ggtitle("Peer-reviewed papers per topic") 

Answer 1

è necessario modificare l'ordine dei livelli , in caso contrario sarà theme_bw ignorare theme:

ggplot(res, aes(x=TOPIC,y=count), labs(x=NULL)) + 
    scale_y_continuous(limits=c(0,130),expand=c(0,0)) + 
    scale_x_discrete("",labels=c("ANA"="Anatomy","BEH"="Behavior","BOUND"="Boundaries", 
          "CC"="Climate change","DIS"="Disease","EVO"="Evolution", 
          "POPSTAT"="Pop status","POPABU"="Pop abundance", 
          "POPTR"="Pop trend","HARV"="Harvest","HAB"="Habitat", 
          "HABP"="Habitat protection","POLL"="Pollution", 
          "ZOO"="Captivity","SHIP"="Shipping","TOUR"="Tourism", 
          "REPEC"="Reprod ecology","PHYS"="Physiology","TEK"="TEK", 
          "HWC"="HWC","PRED"="Predator-prey","METH"="Methods", 
          "POPGEN"="Pop genetics","RESIMP"="Research impact", 
          "ISSUE"="Other","PROT"="Protection","PA"="Protected areas", 
          "PEFF"="Protection efficiency","MINOR"="Minor")) + 
    theme_bw(base_size = 16) + 
    theme(axis.text.x=element_text(angle=90,hjust=1)) + 
    geom_bar(stat='identity') + 
    ggtitle("Peer-reviewed papers per topic")