Skip to content

Instantly share code, notes, and snippets.

@16EAGLE
Last active April 17, 2024 18:07
Show Gist options
  • Star 2 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save 16EAGLE/16f08531f925f9de2286af277089e3d1 to your computer and use it in GitHub Desktop.
Save 16EAGLE/16f08531f925f9de2286af277089e3d1 to your computer and use it in GitHub Desktop.
Short moveVis example on how to display the full traces of each path using trace_show and trace_colour with frames_spatial()
# use moveVis >= 0.10.2 for this example (does not work with CRAN version 0.10.1)
# remotes::install_github("16eagle/moveVis")
library(magrittr)
library(move)
library(moveVis)
data("move_data")
m <- align_move(move_data, res = 4, unit = "mins")
frames <- frames_spatial(m, map_service = "mapbox", map_type = "satellite", map_token = "YOUR_MAPBOX_TOKEN",
path_colours = c("red", "green", "blue"), tail_colour = "white", tail_size = 0.8,
trace_show = T, trace_colour = "white", equidistant = F) %>%
add_labels(x = "Longitude", y = "Latitude") %>%
add_northarrow(colour = "white") %>%
add_scalebar(colour = "white") %>%
add_timestamps(m, type = "label") %>%
add_progress()
animate_frames(frames, out_file = "/full/path/to/file/moveVis_with_trace.gif",
width = 800, height = 550, res = 95,
overwrite = T)
@kaijagahm
Copy link

I'm also hoping to allow the traces to maintain the same color as the associated path, and ideally reduce the alpha. Any idea how to do this?

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment