循环遍历多个数据框并为变量列表制作散点图/绘图

Question

我正在研究循环一组数据框并创建一些变量。我对创建的变量进行了回归，现在想要使用y1和y2变量以及x列表中的每个单独变量创建散点图或绘图（对于所有数据，y1~x ...，y2~x ...帧）。我已经尝试了几种不同的方式，它们似乎只是创建了多个一个情节。我尝试在函数内部放置一个循环，在下面的代码中我尝试了一个嵌套的lapply。

scat <- function(s) {   

  bkt <- grep("BKT", names(i), invert=T, value = T)

  y1 <- grep("IAS", bkt, value = TRUE)

  y2 <-grep("HEIGHT", bkt, value = TRUE)

  x <- list(grep("ias|ivv", bkt, value = TRUE))

  scat_form <- as.formula(paste0(y1,"~",x)); return(scat.form)
}

  scat_plots <- lapply(myDataList, lapply(x, function(s) plot(scat(s), data=i, main=i)))