ggplot2

Question

에 범례 아래 테이블 삽입이 질문에 게시 된 earlier하지만 확인 된 대답에는 문제가 있으므로이 문제를 해결하기 위해 다시 게시하고 있습니다.

나는 ggplot2와 파일에 플롯 내가하고자하는 data.frame을 다음 있습니다 :

df = data.frame(mean=c(1.96535,2.133604,1.99303,1.865004,2.181713,1.909511,2.047971,1.676599,2.143763,1.939875,1.816028,1.95465,2.153445,1.802517,2.141799,1.722428), 
sd=c(0.0595173,0.03884202,0.0570006,0.04934336,0.04008221,0.05108064,0.0463556,0.06272475,0.04321496,0.05283728,0.05894342,0.05160038,0.04679423,0.05305525,0.04626291,0.0573123), 
par=as.factor(c("p","p","m","m","p","p","m","m","m","m","p","p","m","m","p","p")), 
group=as.factor(c("iF","iF","iF","iF","iM","iM","iM","iM","RF","RF","RF","RF","RM","RM","RM","RM")), 
rep=c(1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2)) 

이는 ggplot2 객체를 생성하기위한 내 코드입니다 :

p <- ggplot(df,aes(factor(rep),y=mean,ymin=mean-2*sd,ymax=mean+2*sd,color=factor(par))) 
p <- p + geom_pointrange()+facet_wrap(~group, ncol = 4)+scale_color_manual(values = c("blue","red"),labels = c("p","m"),name = "par id") 
p <- p + ggtitle("test") 
p <- p + labs(y="log(y)",x="rep") 

내가 추가적으로이 data.frame을 범례 아래 테이블로 추가하는 것입니다 :

leg.df = data.frame(statistic = c("pp(par)","pp(g)","pp(s)","fc(p/m)"), value = c(0.96,0.94,0.78,1.5)) 

leg.df.grob <- tableGrob(leg.df, gpar.coretext =gpar(fontsize=8), 
     par.coltext=gpar(fontsize=8), 
     gpar.rowtext=gpar(fontsize=8)) 

### final result 
library(gridExtra) 
pp <- arrangeGrob(p + theme(legend.position = "none"), 
        arrangeGrob(leg.df.grob, legend), ncol = 2) 

그리고, 이론적으로, 내가 사용, 예를 들어, 파일에 pp을 저장할 수 있습니다 : 불행하게도

ggsave('plot.png',pp) 

명령 :

pp <- arrangeGrob(p + theme(legend.position = "none"), 
         arrangeGrob(leg.df.grob, legend), ncol = 2) 

을 그 일이 솔루션 플롯 장치가 열립니다 (정확하게 피하려고하는 것입니다). 또한이 오류가 발생합니다 :

Error in arrangeGrob(leg.df.grob, legend) : input must be grobs! 

어떻게 해결할 수 있습니까?

Answer 1

다른 해결책이 정확합니다. legend 변수를 설정하지 않았기 때문에 오류가 발생했을 것입니다. 그래서 arrangeGrob은 R 함수 legend을 인수로하여 호출됩니다. 나는 약간 다른 대답을 수정

g_legend <- function(a.gplot){ 
    tmp <- ggplot_gtable(ggplot_build(a.gplot)) 
    leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box") 
    legend <- tmp$grobs[[leg]] 
    return(legend) 
} 
legend <- g_legend(p) 

더 나은 widths 인수를 설정하여 grobs를 재 배열, : legend과 같이 정의해야합니다

pp <- arrangeGrob(p + theme(legend.position = "none"), 
        widths=c(3/4, 1/4), 
        arrangeGrob(legend,leg.df.grob), ncol = 2)