A scatter plot that encodes a third continuous variable using a colormap, allowing visualization of three dimensions on a 2D plane. This visualization is essential for exploring multivariate relationships where the third variable represents intensity, magnitude, or any continuous measurement. A colorbar provides a reference scale for interpreting the color values.
#' anyplot.ai
#' scatter-color-mapped: Color-Mapped Scatter Plot
#' Library: ggplot2 3.5.1 | R 4.4.1
#' Quality: 89/100 | Created: 2026-09-05
library(ggplot2)
library(scales)
library(ragg)
set.seed(42)
# --- Theme tokens -----------------------------------------------------------
THEME <- Sys.getenv("ANYPLOT_THEME", "light")
PAGE_BG <- if (THEME == "light") "#FAF8F1" else "#1A1A17"
INK <- if (THEME == "light") "#1A1A17" else "#F0EFE8"
INK_SOFT <- if (THEME == "light") "#4A4A44" else "#B8B7B0"
IMPRINT_PALETTE <- c("#009E73", "#C475FD", "#4467A3", "#BD8233",
"#AE3030", "#2ABCCD", "#954477", "#99B314")
# --- Data ---------------------------------------------------------------
# Weather-station network: temperature rises toward the south and falls
# with elevation-like noise, giving the color channel a real spatial signal.
n_stations <- 320
longitude <- runif(n_stations, -9, 9)
latitude <- runif(n_stations, 36, 54)
temperature_c <- 26 - 0.55 * (latitude - 36) + rnorm(n_stations, 0, 2.2)
stations <- tibble::tibble(longitude, latitude, temperature_c)
# --- Plot -----------------------------------------------------------------
title_text <- "Weather Station Temperatures · scatter-color-mapped · r · ggplot2 · anyplot.ai"
title_size <- round(12 * min(1, 67 / nchar(title_text)))
subtitle_text <- "Stations warm up steadily from north to south across the network"
p <- ggplot(stations, aes(x = longitude, y = latitude, color = temperature_c)) +
geom_point(size = 2.5, alpha = 0.65) +
scale_color_gradient(
name = "Temperature (°C)",
low = IMPRINT_PALETTE[1],
high = IMPRINT_PALETTE[3],
guide = guide_colorbar(
barwidth = 0.6, barheight = 8, ticks.colour = INK, frame.colour = INK_SOFT
)
) +
labs(
title = title_text,
subtitle = subtitle_text,
x = "Longitude (°)",
y = "Latitude (°)"
) +
theme_minimal(base_size = 8) +
theme(
plot.background = element_rect(fill = PAGE_BG, color = PAGE_BG),
panel.background = element_rect(fill = PAGE_BG, color = NA),
panel.grid.major = element_line(color = alpha(INK, 0.15), linewidth = 0.3),
panel.grid.minor = element_line(color = alpha(INK, 0.08), linewidth = 0.2),
axis.title = element_text(color = INK, size = 10),
axis.text = element_text(color = INK_SOFT, size = 8),
plot.title = element_text(color = INK, size = title_size),
plot.subtitle = element_text(color = INK_SOFT, size = 9),
legend.background = element_rect(fill = PAGE_BG, color = NA),
legend.title = element_text(color = INK, size = 10),
legend.text = element_text(color = INK_SOFT, size = 8)
)
# --- Save -------------------------------------------------------------------
ggsave(
filename = sprintf("plot-%s.png", THEME),
plot = p,
device = ragg::agg_png,
width = 8,
height = 4.5,
units = "in",
dpi = 400
)
Runnable source as JSON, for any HTTP client: https://api.anyplot.ai/specs/scatter-color-mapped/ggplot2/code. Any spec id and library id listed in llms-full.txt fit the same URL shape; every URL below is complete and callable.
{
"spec_id": "scatter-color-mapped",
"language": "r",
"library": "ggplot2",
"page": "https://anyplot.ai/scatter-color-mapped/r/ggplot2",
"hub": "https://anyplot.ai/scatter-color-mapped",
"code_json": "https://api.anyplot.ai/specs/scatter-color-mapped/ggplot2/code",
"spec_json": "https://api.anyplot.ai/specs/scatter-color-mapped",
"render_light_png": "https://storage.googleapis.com/anyplot-images/plots/scatter-color-mapped/r/ggplot2/plot-light.png",
"render_dark_png": "https://storage.googleapis.com/anyplot-images/plots/scatter-color-mapped/r/ggplot2/plot-dark.png",
"quality_score": 89.0,
"license": "MIT",
"guide": "https://anyplot.ai/llms.txt"
}Part of Color-Mapped Scatter Plot on anyplot.ai.