ggplot

Question

में धुरी लेबल और टिक में लाइन ब्रेक जोड़ें I प्लॉट के एक्स अक्ष पर लंबे चर नामों का उपयोग करने का एक तरीका ढूंढ रहा हूं। बेशक मैं एक छोटे फ़ॉन्ट का उपयोग कर सकता हूं या उन्हें थोड़ा घुमा सकता हूं लेकिन मैं उन्हें लंबवत और पठनीय रखना चाहता हूं।

एक उदाहरण के रूप:

df <- data.frame(a=LETTERS[1:20], b=rnorm(20), c=rnorm(20), d=rnorm(20)) 
df_M <- melt(df, id="a") 
plot <- ggplot(data=df_M, aes(x=variable, y=a, fill=value) + geom_tile() + scale_fill_gradient(low="green", high="red") 
plot 

यहाँ

एक्स अक्ष सिर्फ पत्र है, लेकिन अगर मैं पूरा नाम का उपयोग करना चाहते हैं, नाम अंतरिक्ष की आय से अधिक राशि का उपयोग करें:

plot + theme(axis.text.x=element_text(angle=90))+ scale_x_discrete(breaks=unique(df_M$variable), labels=c("Ambystoma mexicanum", "Daubentonia madagascariensis", "Psychrolutes marcidus")) 

तो मैं लेबल में लाइन ब्रेक रखना चाहता हूं। अधिमानतः ggplot2 में लेकिन अन्य समाधान पाठ्यक्रम का स्वागत है।

धन्यवाद!

Answer 1

आप अपना खुद का फॉर्मेटर जोड़ सकते हैं (अधिक उदाहरणों के लिए scales पैकेज देखें)। यहां मैं आपके एक्स लेबल में किसी भी स्थान को एक नई लाइन से प्रतिस्थापित करता हूं।

addline_format <- function(x,...){ 
    gsub('\\s','\n',x) 
} 

myplot + 
    scale_x_discrete(breaks=unique(df_M$variable), 
    labels=addline_format(c("Ambystoma mexicanum", 
         "Daubentonia madagascariensis", "Psychrolutes marcidus"))) 

Answer 2

str_replace_all (के माध्यम से

), 'अंतरिक्ष परिसीमक पर, विभाजन' एक अंतरिक्ष परिसीमक 'के साथ' foo_your_symbol_delim ''

str_wrap के माध्यम से

, पर prespecified चौड़ाई के साथ '40' की जगह ले, चादर टुकड़े, और पेस्ट

+ scale_x_discrete(labels = function(x) str_wrap(str_replace_all(x, "foo" , " "),width = 40)) 

Answer 3

आप नहीं चाहते कि हर लेबल नाम की रिक्ति के प्रत्येक उदाहरण में तोड़ने के लिए है, तो आप वैकल्पिक रूप सेइस्तेमाल कर सकते हैं(नई लाइन) कॉल के भीतर scale_x_continuous रहे हैं:

my.labels <- c("Ambystoma\nmexicanum","Daubentonia madagascariensis", 
       "Psychrolutes marcidus") # first create labels, add \n where appropriate. 

myplot + 
    scale_x_discrete(labels= my.labels) 

ध्यान दें कि केवल प्रथम नाम (Ambystoma mexicanum) नई लाइन आदेश (\n) का उपयोग कर टूट जाएगा।