Labeling Data Series

suppressPackageStartupMessages({
    library(tidyverse)
    library(cowplot)
    library(ggrepel)
    library(directlabels)
    library(geomtextpath)
    theme_set(theme_cowplot())
})
options(repr.plot.width=16,repr.plot.height=10)

Labeling Data Series#

data#

set.seed(456)
data <- filter(
    txhousing,
    city %in% sample(unique(txhousing$city), 5), 
    !is.na(median),
    year > 2012
)

ggplot(data, aes(x=date, y=median, color=city)) + 
geom_line() +
scale_y_sqrt()
../../_images/ff483cc4e6c9dcc19a79480ffbb03b10554f7685de9bc9cf57cbebe870967b7b.png

Labels at the end#

see: https://ggrepel.slowkow.com/articles/examples

mutate(data,
       label=ifelse(date==max(date, na.rm=T), city, NA),
       .by=city
) |>
ggplot(aes(x=date, y=median, color=city)) + 
geom_line() +
geom_label_repel(aes(label=label), size=5, min.segment.length = 0, max.overlaps = Inf, box.padding = 1, segment.color='darkgray', nudge_x=0.3, hjust = "left",direction='y') +
guides(color='none') +
scale_y_sqrt()

Warning message:
"Removed 149 rows containing missing values or values outside the scale range (`geom_label_repel()`)."
../../_images/c40ee0a9ea0bc316d2f356a410346381c2a0a478a9934ec977366700aa83fcbf.png

Labels at the peak (y-axis)#

mutate(data,
       label=ifelse(median==max(median, na.rm=T), city, NA),
       .by=city
) |>
ggplot(aes(x=date, y=median, color=city)) + 
geom_line() +
geom_label_repel(aes(label=label), size=5, min.segment.length = 0, max.overlaps = Inf, box.padding = 1, segment.color='darkgray', nudge_x=0.1, hjust = "left",direction='y') +
guides(color='none') +
scale_y_sqrt()

Warning message:
"Removed 148 rows containing missing values or values outside the scale range (`geom_label_repel()`)."
../../_images/567c7d899ced3e74d7969dfdc1304de5360bc82d5414f1eb503c200700edcb87.png

geomtextpath#

see: https://cran.r-project.org/web/packages/geomtextpath/vignettes/geomtextpath.html

data |>
ggplot(aes(x=date, y=median, color=city, label=city)) + 
geom_line() +
geom_labelpath(text_smoothing = 100, size=5) +
guides(color='none') +
scale_y_sqrt()
../../_images/92a813ed7b66f5ce45776cf4740f837da70e752dc41e49b5ba32bdb0d6cc2c63.png

directlabels#

see: https://cran.r-project.org/web/packages/directlabels/vignettes/examples.html

data |>
ggplot(aes(x=date, y=median, color=city, label=city)) + 
geom_line() +
geom_dl(method = list('right.polygons', cex=1)) +
guides(color='none') +
scale_y_sqrt()
../../_images/1b30b81c52badd9b9e71eebb86c4faa3a0136b67ea552d2e2cf6a7e17d263988.png 
data |>
ggplot(aes(x=date, y=median, color=city, label=city)) + 
geom_line() +
geom_dl(method = list('top.bumpup', cex=2)) +
guides(color='none') +
scale_y_sqrt()
../../_images/330cf9f092988ef801b3ab334a4dc13faf55e730a3ad7edf024ee1cec7a69bb8.png
Contents