GGPLOT2 - textgrob 사용하기 (합쳐진 그림에 라벨 넣기)

library(gridExtra)
library(grid)
library(gridtext)

df<-data.frame(x1=runif(5),
               x2=runif(5),
               x3=runif(5),
               x4=runif(5),
               y=runif(5))
               
p1 <- ggplot(data = df, aes(x = x1, y = y))+geom_line()
p2 <- ggplot(data = df, aes(x = x2, y = y))+geom_line()
p3 <- ggplot(data = df, aes(x = x3, y = y))+geom_line()
p4 <- ggplot(data = df, aes(x = x4, y = y))+geom_line()

p = list(p1,p2,p3,p4) 
grid.arrange(grobs=p, ncol = 2, nrow = 2)

위와 같이 4개의 그림을 하나로 합친 그림에 대해, 공통 라벨을 붙이는 방법 : textgrob를 사용한다

 

yleft <- textGrob("Common Y label (left)", 
                  rot = 90, 
                  gp = gpar(fontsize = 20))

yright <- textGrob("Common Y label (right)",
                   rot = 270, 
                   gp = gpar(fontsize = 20))

bottom <- textGrob("Common Bottom label", 
                   gp = gpar(fontsize = 20))
                   
grid.arrange(grobs=p, ncol = 2, nrow = 2, left = yleft, right = yright, bottom = bottom)

 

짠

 

참고 자료 : https://cran.r-project.org/web/packages/gridExtra/vignettes/arrangeGrob.html