используйте 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])
}