通过sapply()或lapply()将多个对象传递到函数中，同时在函数中维护substitute()的功能

My code is as follows:

我的代码如下:

x<-read.table('1')
y<-read.table('2')
z<-read.table('2')

MyFunc<-function (data){
  plot(data[1]~data[2])
  title(main=substitute(data))
  data.new <- some.manipulations(data)
  write.csv(data.new,file=paste(substitute(data),".csv",sep=""))
}

my.list <- list(x,y,z)
lapply(mylist,MyFunc)
x<-read.tabl