domy.xyplot <- function(data, x.name, y.name, ...){
ellipsis <- ellipsis.defaults(x=list(...), nl=list(ylab=y.name,xlab=x.name))
do.call( plot, c(list(x=data[,x.name],y=data[,y.name]), ellipsis))
}
domy.xyplot(data=mtcars, y.name='mpg', x.name='wt', xlab='weight')
Run the code above in your browser using DataLab