Рисование карт без полей в R

Я пытаюсь избавиться от полей карт, созданных с помощью пакета 'maps' в R. Я немного справился с этим, установив par (mar = c (0,0, 0, 0)) и использование опции border = 0 в функции map () . Но по сравнению, например, с диаграммой рассеяния с mar = c (0,0,0,0) все еще остается много дополнительного места. Вот код для создания примера карты, а также обычная диаграмма рассеяния для сравнения.

library(maps)
x <- sample(360, 10)-180
y <- sample(160, 10)-80
x.boundary <- c(-180, 180, 0, 0)
y.boundary <- c(0, 0, -80, 80)

pdf("map.tmp.pdf", width=9, height=4)
par(mar=rep(0,4))
map("world", border=0, ylim=c(-80, 80), fill=TRUE, bg="gray", col="white")
points(x, y, pch=19, col="blue")
points(x.boundary, y.boundary, pch=19, col="red")
# map.axes()
dev.off()

pdf("scatter.tmp.pdf", width=9, height=4)
par(mar=rep(0,4))
plot(x, y, xlim=c(-180, 180), ylim=c(-80, 80), pch=19, col="blue")
points(x.boundary, y.boundary, pch=19, col="red")
dev.off()

Если вы раскомментируете функцию map.axes () , вы увидите, что даже с условно подавленными полями пространство было зарезервировано для топоров.

Любые идеи, которые я высоко ценю, меня это раздражало целую вечность.