Skip to content

Instantly share code, notes, and snippets.

@coolbutuseless

coolbutuseless/dark-side-of-the-moon.R

Forked from geotheory/dark-side-of-the-moon.R
Created June 1, 2020 10:00
Show Gist options
  • Save coolbutuseless/0fefbf2f59997cbc8036e4faac26aef7 to your computer and use it in GitHub Desktop.
Save coolbutuseless/0fefbf2f59997cbc8036e4faac26aef7 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
dark-side-of-the-moon.R
require(ggplot2)
ggplot() + annotate(x = -10, y=1, xend = -1.38, yend=3, geom='segment', col='white') +
geom_segment(data = data.frame(x = -1.38, y = seq(3.0, 3.0, len=30),
xend = seq(1.4, 1.1, len=30), yend = seq(3.0, 3.5, len=30)),
aes(x, y, xend=xend, yend=yend), col='#ffffff10') +
geom_segment(data = data.frame(id=1:30, x = seq(1.1, 1.35, len=30), y = seq(3.5, 3.0, len=30),
xend = seq(10, 10, len=30), yend = seq(2.0, 1.0, len=30)),
aes(x, y, xend = xend, yend = yend, col = factor(id))) +
geom_path(data=NULL, aes(c(-3, 0, 3, -3), y = c(0,5.5,0,0)), col='white') +
scale_color_manual(values = rainbow(30, end = .7)) +
scale_y_continuous(limits = c(-3,8)) +
coord_equal() + theme_void() + theme(plot.background = element_rect(fill='black')) +
guides(col=F)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment