使用lapply和plot绘制多个图

Question

尝试运行以下代码，但始终收到错误消息：

text.default（x，y，txt，cex = cex，font = font）中的错误：无效的数学注释

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)

有人可以告诉我怎么了吗？ 谢谢

Answer 1

R的绘图函数的定义为：

plot(x, y, ...)

因此，您应该将函数定义为：

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