我正在尝试在天空上绘制天体(基本上具有与纬度/经度等效的坐标)。我使用
coord_map
函数的"aitoff"
投影成功地绘制了所有点,但在这种情况下,网格显示得很差,即非零纬度仍显示其正确投影以及残留的水平线。
如何去除这些线?
以下是重现此行为的代码:
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("","","","","","","","",""))