将标签和标题添加到从lapply函数派生的地块

# 假设plots是一个包含多个图形的列表
plots <- lapply(1:5, function(i) {
  plot(runif(10), main=paste("Plot", i))
  return(recordPlot())
})

# 添加标题和标签的函数
add_titles_and_labels <- function(plot, title, label) {
  plot.new()
  plot.window(xlim=c(0,1), ylim=c(0,1))
  text(0.5, 0.9, title, cex=1.5)
  text(0.5, 0.1, label, cex=1.2)
  plot(plot)
}

# 应用函数到每个图形
labeled_plots <- lapply(seq_along(plots), function(i) {
  add_titles_and_labels(plots[[i]], title=paste("Title for Plot", i), label=paste("Label for Plot", i))
})

add_titles_and_labels <- function(plot, title, label) {
  plot.new()
  plot.window(xlim=c(0,1), ylim=c(0,1))
  text(0.5, 0.85, title, cex=1.5, adj=c(0.5, 1)) # 调整标题位置
  text(0.5, 0.15, label, cex=1.2, adj=c(0.5, 0)) # 调整标签位置
  plot(plot)
}