ggplot2 표현식이있는 두 줄 레이블

Question

축 레이블을 expression() 문으로 두 줄에 쓰고 싶습니다. 그러나 plotmath 및 expression은 허용하지 않습니다 (예 : 아래 첨자 텍스트가 맨 오른쪽에 나타남). 비슷한 문제가 2005 년경 this discussion 인 것으로 나타 났지만 제공하는 해결 방법은 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()))