terminator's Introduction

terminator

This is a simple R port of the Leaflet plugin Leaflet.Terminator.js intended to indicate day and night regions on a map.

Although this function worked for leaflet maps, I made this function in order to visualise terminators on ggplot maps, such as animations like this:

Produced like so:

library(dplyr)
library(ggplot2)
library(ggthemes)
library(gganimate)
library(animation)

terminatorLatLon <- lapply(seq(0, 23, 1), function(x) {
  
  t0 <- as.POSIXct(Sys.Date()) + (60*60*x)
  
  terminator(t0, -180, 190, 0.5) %>%
    mutate(frame = x)
}) %>%
  plyr::rbind.fill()

chart <- ggplot(terminatorLatLon, aes(frame = frame)) +
  borders("world", colour = "gray90", fill = "gray85") +
  geom_ribbon(aes(lat, ymax = lon), ymin = 90, alpha = 0.2) +
  coord_equal(xlim = c(-180, 190), ylim = c(-58, 85), expand = 0) +
  theme_map()

gganimate(chart, interval = 0.1, ani.width=1000, ani.height=600, filename = "terminator-animation.gif")

terminator's People

Contributors

Stargazers

Watchers

terminator's Issues

Images for README

Rcpp version

As noted on Twiter: rly nice port!

I took it one step further: https://github.com/hrbrmstr/terminator

Reaching out to see how far you were going to go with it and even suggest that I transfer the repo over to you (or add you as a collaborator on to my Rcpp port).

Recommend Projects