在R中的图表列表中移动图表的标题

Question

我有一个我已分配名称的图表列表，然后按照https://stackoverflow.com/a/14790376/9335733的建议转换为图表标题。标题碰巧出现在顶部的x轴标题上，所以我试图按照这里的建议移动它们：https://stackoverflow.com/a/44618277/9335733。整体代码如下：

lapply(names(Cast.files), function (x) plot(Cast.files[[x]],
                                        main = x,
                                        adj = 0, #adjust title to the farthest left
                                        line =2.5 #adjust title up 2.5
                                        )
   )

应该注意的是，plot现在从基础R转换为oce包用于分析海洋学数据，但是从基础R plot调用相同的参数。

问题在于，在尝试移动标题时，轴标签也会移动并重叠。有什么建议？

编辑：这是以前的图像：

之后：

Answer 1

您可能还想查看oma=中的par()参数，它提供了一个“外部”边距，可以用来放置一个好的标题。就像是：

library(oce)
data(ctd)
par(oma=c(0, 0, 1, 0))
plot(ctd)
title('Title', outer=TRUE)

Answer 2

这是通过在title函数之外添加plot参数来解决的，如下所示：

lapply(names(Cast.files), function (x) plot(Cast.files[[x]], 
                                        which = c("temperature", "salinity", "sigmaT","conductivity"),
                                        Tlim = c(11,12), 
                                        Slim = c(29,32),
                                        col = "red") 
+ title(main = x, adj = 0.48, line = 3.5)#adding the titles at a specific location
   )

这允许看起来像这样的情节：

Answer 3

如果使用标题功能，而不是在绘图中设置main，则可以更改线条而不影响绘图中的任何其他内容。