即时创建布局标题

Question

我正在寻找一种简单的方法来为布局中的每个字段赋予标题，如下所示：

layout(matrix(1:8, nrow=2, ncol=4, byrow=TRUE)) # Graph matrix

for (x in names(ftime.p)){
  plot(listz$x$data)
  title(x)
}

请注意，在我的情况下，length（listz）= 8

我想过使用sapply，但问题是在其中使用title（）函数：

sapply(listz, function(x) plot(x$data))

Answer 1

您可以使用情节的main参数，例如

sapply(listz, function(x)  plot(x$data, main=x))

Answer 2

这是一个可重复的例子：

layout(matrix(1:8, nrow=2, ncol=4, byrow=TRUE)) # Graph matrix
sapply(names(mtcars[1:8]), FUN=function(X) plot(mtcars[[X]], main=X))