使用lapply和plot绘制多个图

Question

try to run the following code, but always got error message:

Error in text.default(x, y, txt, cex = cex, font = font) : invalid mathematical annotation

par(mfrow=c(2,3))
x <- c(1:4,6:9)
myPlot<-function(x){
    plot(pros.dat, pros.dat$svi ~ pros.dat[,x])
}
lapply(c(1:4,6:9), FUN=myPlot)

Could anybody tell me what's wrong? Thanks

Answer 1

R's plot function's definition is:

plot(x, y, ...)

So you should define your function as:

myPlot<-function(x){
    plot(pros.dat$svi, pros.dat[,x])
}