R 멀티 플롯에 대한 단일 레이블

Question

가 난 단지 같은 바깥 쪽 가장자리에 라벨이 내 플롯을 얻으려고 수치 :

을하지만 난 방법을 알아낼 수없는 것 그것을 작동 시키려면.

나는 this question으로 얼마간 시간을 보냈지 만, 일반적인 파동이나 음모가 실제로 어떻게 작동하는지 잘 이해하지 못해서 나에게 많은 도움이되지 못했습니다.

어쨌든,이 시점에서 가지고있는 간단한 버전을 추가 했으므로 손을 정말 고맙게 생각합니다.

library(popbio) 

mat <- matrix2(c(0,0,0,6.13,0.22,0.55,0.05,0,0,0.23,0.79,0.15,0,0,0.16,0.85)) 

ela <- elasticity(mat) 
sen <- sensitivity(mat) 

par(mfrow = c(1, 3), oma = c(0, 2, 2, 0), mar = c(0, 1, 1, 0), xpd = NA) 

image2(mat, mar = c(1,3.5,5,1), col = c("grey"), labels=c(0,0,0,0)) 
image2(ela, mar = c(1,3.5,5,1), labels=c(0,0,0,0)) 
image2(sen, mar = c(1,3.5,5,1), labels=c(0,0,0,0)) 

title(xlab=c("matrix","elasticity","sensitivity"), ylab=c("herb"), outer=TRUE, line=3) 

고마워요!

Answer 1

그렇게 복잡합니까? 방법에 대해 :

par(mfrow = c(1, 3)) 

image2(mat, mar = c(1,3.5,5,1), col = c("grey"), labels=c(0,0,0,0)) 
mtext(text = "herb", side = 2, line = 1, las = 2, font = 2) 
mtext(text = "matrix", side = 3, line = 0, font = 2) 

image2(ela, mar = c(1,3.5,5,1), labels=c(0,0,0,0)) 
mtext(text = "elas", side = 3, line = 0, font = 2) 

image2(sen, mar = c(1,3.5,5,1), labels=c(0,0,0,0)) 
mtext(text = "sens", side = 3, line = 0, font = 2)