相关疑难解决方法(0)

我有4个绘图的汇编par(mfrow=c(2,2)).我想为上面的2个图绘制一个共同的标题,并在下面的2个面板中绘制一个共同的标题,这些标题位于2个左右图之间.

这可能吗？

我有一个标题的框架情节.我想知道是否有一种快速简便的方法来围绕(主要)标题的标题.

框架的宽度应与图表周围的框架宽度相同.还有办法调整框架的高度吗？

我想坚持通用的绘图功能.

# Some example data
x <- rnorm(10)
y <- rnorm(10)

# Plot data and add title
plot(x,y, 
     xlab = "",
     ylab = "",
     frame = TRUE
     )
title( main = "This should be framed")

非常感谢和周末愉快!

在上一个问题中,我询问了如何在用户坐标中获取边距线位置.我以line2user功能的形式收到了很好的答案.但是,当x或y轴在对数刻度上时,我无法弄清楚如何修改函数.

我做了一些修改以适应对数刻度轴:

line2user <- function(line, side, log = "") {
  lh <- par('cin')[2] * par('cex') * par('lheight')
  x_off <- diff(grconvertX(0:1, 'inches', 'user'))
  y_off <- diff(grconvertY(0:1, 'inches', 'user'))
  usr <- par('usr') ## Added by me
  if (grepl("x", log)) usr[1:2] <- 10^usr[1:2] ## Added by me
  if (grepl("y", log)) usr[3:4] <- 10^usr[3:4] ## Added by me
  switch(side,
         `1` = usr[3] - line * y_off * lh,
         `2` = usr[1] - line * x_off * lh,
         `3` = usr[4] …