小编Ben*_*ats的帖子

背景

我正在尝试根据 R 中给定的位置和日期创建天体地图。

理想情况下，视觉效果应如下所示：

（来源）

我确实看到了这个博客，它使用了D3 天体图，并且对于创建下面的视觉效果非常有帮助。

library(sf)
library(tidyverse)


theme_nightsky <- function(base_size = 11, base_family = "") {
  
  theme_light(base_size = base_size, base_family = base_family) %+replace% 
    theme(
      # Specify axis options, remove both axis titles and ticks but leave the text in white
      axis.title = element_blank(),
      axis.ticks = element_blank(),
      axis.text = element_text(colour = "white",size=6),
      # Specify legend options, here no legend is needed
      legend.position = "none",
      # Specify background of plotting area
      panel.grid.major = …