library(tidyverse)
library(viridis)

# note: must first convert data to a dataframe

p <- ggplot(data) +
      geom_path(aes(lon, lat, group = id, color = elevation), alpha = 0.5) +
      coord_map() +
      theme_void() +
      scale_colour_viridis() +
      theme(legend.position="none") +
      theme(plot.background = element_rect(fill = "black"))

p