ggplot2 दो लाइन लेबल अभिव्यक्ति

Question

साथ मैं एक expression() बयान के साथ दो लाइनों पर एक धुरी लेबल लिखने के लिए करना चाहते हैं। हालांकि, plotmath और expression इस (जैसे subscripted पाठ पर अब तक सही दिखाई देता है) अनुमति नहीं दी जाएगी। मैं एक ऐसी ही जारी होने की this discussion लगभग 2005 लेकिन काम के आसपास पाया है कि वे प्रदान करते हैं ggplot2 में अपने आवेदन करने के लिए अनुवाद नहीं करता है। A recent question बहु लाइन अभिव्यक्ति बयान का एक अलग क्रमचय को संबोधित किया, लेकिन फिर से काम के आसपास उपलब्ध यहाँ लागू नहीं होता।

उदाहरण:

p <- ggplot(mtcars,aes(x=wt,y=mpg))+ 
    geom_point()+ 
    xlab(expression(paste("A long string of text goes here just for the purpose \n of illustrating my point Weight "[reported]))) 
try(ggsave(plot=p,filename=<some file>,height=4,width=6)) 

एक छवि जहां अधोलिखित "रिपोर्ट" बाहर सही करने के लिए निकाल दिया जाता है, जब मैं यह करना चाहते हैं पिछले शब्द के बगल में बैठने के लिए अर्जित करता है।

Answer 1

मुझे लगता है कि यह एक बग है। (या इस तथ्य का एक परिणाम कि "बहु-पंक्ति अभिव्यक्ति समर्थित नहीं हैं", जैसा कि आपने लिंक किए गए वार्तालाप में बताया है)।

वैकल्पिक हल है कि गेविन सिम्पसन का संकेत है:

#For convenience redefine p as the unlabeled plot 
p <- ggplot(mtcars,aes(x=wt,y=mpg))+geom_point() 

#Use atop to fake a line break 
p + xlab(expression(atop("A long string of text for the purpose", paste("of illustrating my point" [reported])))) 

यह सच लाइन सबस्क्रिप्ट साथ टूट जाता है का उपयोग करना संभव है। नीचे कम उदाहरण है, जो अपने उदाहरण के रूप में ही रूप है में, सबस्क्रिप्ट सही ढंग से पाठ के बाकी के निकट रख दिया गया है, लेकिन पाठ की दो पंक्तियाँ सही ढंग से केंद्रित नहीं कर रहे हैं:

p + xlab(expression(paste("line1 \n line2 a" [b]))) 

मुझे लगता है कि दोनों मामलों में, सबस्क्रिप्ट को गलत रखा गया है जब पाठ की ऊपरी पंक्ति टेक्स्ट की निचली पंक्ति से अधिक लंबी होती है। की तुलना करें

p + xlab(expression(paste("abc \n abcd" [reported]))) 

p + xlab(expression(paste("abc \n ab" [reported]))) 

सबस्क्रिप्ट हमेशा समाप्त होता है सिर्फ ऊपरी रेखा के दाहिने सिरे के अधिकार के लिए गठबंधन।

p + xlab(expression(paste("abcdefghijklmnop \n ab" [reported]))) 

Answer 2

आप इस चाल इस्तेमाल कर सकते हैं,

library(gridExtra) 
library(grid) 

element_custom <- function() { 
    structure(list(), class = c("element_custom", "element_text")) 
} 

element_grob.element_custom <- function(element, label="", ...) { 

    mytheme <- ttheme_minimal(core = list(fg_params = list(parse=TRUE, 
                 hjust=0, x=0.1))) 
    disect <- strsplit(label, "\\n")[[1]] 
    tableGrob(as.matrix(disect), theme=mytheme) 
} 

# default method is unreliable 
heightDetails.gtable <- function(x) sum(x$heights) 

ggplot(iris, aes(Sepal.Length, Sepal.Width)) + 
    geom_line() + 
    labs(x= "First~line \n italic('and a second') \n integral(f(x)*dx, a, b)")+ 
    (theme_grey() %+replace% theme(axis.title.x = element_custom()))