创建布局标题上飞

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

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

我想用sapply代替，但麻烦的是安装在它的标题（）函数：

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

Answer 1

这里有一个重复的例子：

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

Answer 2

可以使用情节main说法，像

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