그리드에 ggplot2 범례 항목 배열

Question

가로 또는 세로 대신 2x2 격자로 정렬하려는 4 개의 항목이있는 범례가 있습니다. 나는 별도의 사용을위한 전설을 추출하고 있는데, 이것이 내가 다소 이상한 배열을 필요로하는 이유이다. 어떤 아이디어?

는 아래의 코드는 수직으로 단일 열에서 모든 항목과 범례를 생성

require(ggplot2) 
library(grid) 
library(gridExtra) 

dat <- data.frame(x=c(1,2,1,2,1,2,1,2),y=c(1,2,3,4,2,3,4,5),color=factor(c("a","a","b","b","c","c","d","d"))) 
p = ggplot(dat) 
p = p + geom_line(aes(dat$x,dat$y,color=dat$color)) 
p = p + scale_colour_manual (values=dat$color,name="") 
#print(p) 

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) 
grid.arrange(legend) 

Answer 1

시도가 플롯에 guides(colour = guide_legend(nrow = 2))를 추가.