Question

有没有办法为包含4列5行的20个图形的图组设置5个子标题？

附上图表的图片。

我尝试按以下方式插入标题，但调整输出图将移动标题。

mtext("Frankfurt (Forecast 2012 - 2033)", side = 3, line = -1.5, outer = TRUE)

我找到了以下几行代码，但这些代码似乎只涉及20个图表中的一个，而不是整个图表

op <- par("usr") 
par(usr = c(0, 1, 0, 1)) 
text(0.5,0.5,"TEST") 
par(usr = op)

http://i.imgur.com/j0AfMxE.png?1

Answer 1

这是我的方法。

mat <- matrix(c(rep(1,4), 6:9, rep(2,4), 10:13, rep(3,4), 14:17, rep(4,4), 18:21, 
                rep(5,4), 22:25), ncol=4, byrow=T)
mat                  # 1-5: subtitle, 6-: mainplot
layout(mat, heights=c(rep(c(1, 20), 5)))   # heights setting (rough)

par(mar=c(0,0,0,0))
for(i in 1:5) {
  plot(0, 0, type="n", ann=F, axes=F)  # plotting white paper & subtitle
  mtext(side=1, line=0.2, "subtitle")  # do it five times
}

par(mar=c(2, 2, 2.7, 1), mgp=c(3, 0.6, 0))  # margins and tick lab position set
for(i in 1:20) {
  plot(rnorm(30), ann=F)            # main plot
  title(LETTERS[i], line=0.3)       # each title (don't use plot(main=))
}

为多个图表绘制每行设置相对标题

1 个答案: