r - 动态创建布局标题

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))

score 1 · Accepted Answer

1

您可以使用main情节的论点，例如

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

于 2013-02-06T01:30:53.317 回答

score 1 · Accepted Answer

这是一个可重现的示例：

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))

2 回答 2