Следующие изменения должны помочь вам изменить ваш график:
Добавьте аргумент cex.axis, чтобы вы могли изменить размер шрифта в вашей функции axis ()
par(mar=c(4,3,1,1), mgp=c(3, 1, 0), las=1, cex.axis=caxis)
Возможно удалитьАргумент asp
(хотя он может работать для вашего набора данных), удалите аргумент cex.axis
, когда вы строите ось отдельно, и добавьте оси = TRUE, чтобы отобразить оси позже с помощью функции axes()
plot(p1,main= "AM - Pico", xlab="x.coords",
ylab="y.coords",cex.axis=caxis, axes=FALSE)