ggplot을 사용하여 패싯 사이에 심볼을 표시 할 수 있습니까?

Question

나는 모든 사각형 패싯 인 상태 : 다른 측면 사이의 관계를 시각화, ggplot 내 측면 사이에

□ + □ - □ = □ 

을 예컨대을 문자 넣어합니다. 이것이 가능한가?

Answer 1

당신은 후 처리로 gtable에 grobs을 추가 할 수 있습니다

,

library(ggplot2) 
library(gtable) 
library(grid) 

p <- ggplot(data.frame(f=1:2)) + facet_wrap(~f) 

g <- ggplotGrob(p) 
pan <- g$layout[grepl("panel", g$layout$name),] 
g <- gtable_add_cols(g, unit(2,"line"), pos = min(pan$l)+1) 
g <- gtable_add_grob(g, textGrob("+", gp=gpar(cex=2)), l = min(pan$l)+2, t=unique(pan$t)) 

grid.newpage() 
grid.draw(g)