Сетка плохо отображается с помощью ggplot2

Я пытаюсь нарисовать небесный объект на небе (в основном с координатами, эквивалентными широте/долготе). Я успешно нанес все свои точки с помощью проекции "aitoff"функции coord_map, но в этом случае сетка отображается плохо, т.е. остаточные горизонтальные линии все еще отображаются для широт не равны нулю вместе с их правильными проекциями.

Как удалить эти строки?

Вот код, воспроизводящий такое поведение:

library(ggplot2)
library(mapproj)
sky2 = data.frame(RA=0, Dec=0)
skyplot2 <- qplot(RA,Dec,data=sky2,xlim=c(0,360),ylim=c(-89.999,89.999),
xlab="R.A.(°)", ylab="Decl. (°)",main="Source repartition on the sky")
skyplot2 + coord_map(projection="aitoff",orientation=c(89.999,180,0)) + 
scale_y_continuous(breaks=(-2:2)*30,limits=c(-89.999,89.999)) + 
scale_x_continuous(breaks=(0:8)*45,limits=c(0,360),
                   labels=c("","","","","","","","",""))