Perseverance – r.iresmi.net

NASA's Mars Perseverance rover acquired this image using its Right Mastcam-Z camera. Mastcam-Z is a pair of cameras located high on the rover's mast.This image was acquired on Nov. 11, 2025 (Sol 1681) at the local mean solar time of 12:01:22. — Mars Perseverance Sol 1681: Right Mastcam-Z Camera – PD by NASA/JPL-Caltech/ASU

Day 18 of 30DayMapChallenge: « Out of this world » (previously).

Perseverance is still hiking…

library(dplyr)
library(sf)
library(ggplot2)
library(glue)

Data

Scraping Where is Perseverance?.

if (!file.exists("M20_waypoints.json")) {
  download.file("https://mars.nasa.gov/mmgis-maps/M20/Layers/json/M20_waypoints.json",
                "M20_waypoints.json")
}
perseverance <- read_sf("M20_waypoints.json")

Map

perseverance |> 
  ggplot() +
  geom_sf(aes(color = sol)) +
  scale_color_viridis_c() +
  labs(title = "Perseverance",
       caption = glue("data: https://science.nasa.gov/mission/mars-2020-\\
                       perseverance/location-map/
                       https://r.iresmi.net/ - {Sys.Date()}")) +
  theme(panel.background = element_rect(fill = NA),
        plot.background =  element_rect(fill = "sienna3",
                                        color = "sienna4"),
        text = element_text(color = "sienna4"),
        axis.text = element_text(color = "sienna4"),
        panel.grid = element_line(color = "sienna4"),
        legend.background = element_rect(fill = NA),
        plot.caption = element_text(size = 6))

Figure 1: Map of Perseverance itinerary on Mars

Don’t ask me about Mars datum or projections, I have no idea how it works…

--- title: "Perseverance" description: "Day 18 of 30DayMapChallenge. Out of this world" author: "Michaël" date: "2025-11-18T21:00:00" date-modified: last-modified categories: - R - 30DayMapChallenge - spatial - datavisualization draft: false freeze: true editor_options: chunk_output_type: console chunk_output_type: console execute: message: false --- [![Mars Perseverance Sol 1681: Right Mastcam-Z Camera -- PD by NASA/JPL-Caltech/ASU](images/Mars_Perseverance_ZR0_1681_0816168612_957EBY_N0802956ZCAM04271_1100LMJ.png){fig-alt="NASA's Mars Perseverance rover acquired this image using its Right Mastcam-Z camera. Mastcam-Z is a pair of cameras located high on the rover's mast.This image was acquired on Nov. 11, 2025 (Sol 1681) at the local mean solar time of 12:01:22."}](https://mars.nasa.gov/mars2020/multimedia/raw-images/ZR0_1681_0816168612_957EBY_N0802956ZCAM04271_1100LMJ) Day 18 of [30DayMapChallenge](https://30daymapchallenge.com/): « Out of this world » ([previously](/#category=30DayMapChallenge)). [Perseverance](https://en.wikipedia.org/wiki/Perseverance_(rover)) is still hiking... ```{r} #| label: setup library(dplyr) library(sf) library(ggplot2) library(glue) ``` ## Data Scraping [Where is Perseverance?](https://science.nasa.gov/mission/mars-2020-perseverance/location-map/). ```{r} #| label: data if (!file.exists("M20_waypoints.json")) { download.file("https://mars.nasa.gov/mmgis-maps/M20/Layers/json/M20_waypoints.json", "M20_waypoints.json") } perseverance <- read_sf("M20_waypoints.json") ``` ## Map ```{r} #| label: fig-map #| fig-alt: Perseverance itinerary #| fig-cap: Map of Perseverance itinerary on Mars #| dev: png #| out-width: "100%" #| dev.args: #| bg: transparent #| fig-height: 3 perseverance |> ggplot() + geom_sf(aes(color = sol)) + scale_color_viridis_c() + labs(title = "Perseverance", caption = glue("data: https://science.nasa.gov/mission/mars-2020-\\ perseverance/location-map/ https://r.iresmi.net/ - {Sys.Date()}")) + theme(panel.background = element_rect(fill = NA), plot.background = element_rect(fill = "sienna3", color = "sienna4"), text = element_text(color = "sienna4"), axis.text = element_text(color = "sienna4"), panel.grid = element_line(color = "sienna4"), legend.background = element_rect(fill = NA), plot.caption = element_text(size = 6)) ``` Don't ask me about Mars datum or projections, I have no idea how it works...