2016-04-17 7 views
6

में एक्स लेबल पाठ नीचे दिए गए कोड को घुमाने और x- अक्ष पर पाठ लेबल संरेखित करना चाहिए, लेकिन कुछ कारणों से यह नहीं है:घूर्णन ggplot

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") 

उत्तर

15

आप परतों का क्रम बदलने की जरूरत है , अन्यथा theme_bwtheme को पार कर जाएगी:

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") 
+0

बढ़िया। धन्यवाद। अब केवल एक समस्या बनी हुई है। टेक्स्ट लेबल टिक मार्क पर केंद्रित नहीं हैं। मैं उसको कैसे करू? – Dag

+0

'vjust' – beetroot

+1

जोड़ने और समायोजित करने का प्रयास करें, यह काम करता है! – Dag