The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.

ggalttext

Make ggplot2 fully accessible by generating alternative text. ggalttext provides a main function, generate_alt_text(), which takes any ggplot2 object and generates a string describing the graph’s content (in multiple languages!).

This text is not intended to describe the plot word for word, nor how it was created. Rather, it aims to be concise and provide an overview of the plot’s content, for example:

• the kind of chart(s)
• the number of chart(s) for facets
• the title
• …

[!TIP] Add ggalttext::enable_auto_alt_text() at the top of your Quarto document and every ggplot chart will now have its own customized alternative text (no matter the output format: HTML, PDF, Typst, etc).

Installation

install.packages("ggalttext", repos = c("https://y-sunflower.r-universe.dev"))

Motivations

Data visualizations are often shared without meaningful alternative text, making them inaccessible to people using screen readers. While adding alt text is straightforward in principle, in practice it’s easy to fall into vague/unhelpful descriptions. ggalttext aims to remove that friction by automatically generating descriptions, helping make visualizations more accessible by default.

Learn more: https://www.section508.gov/create/alternative-text/

Example

library(ggplot2)
library(babynames)

plot_data <- babynames |>
    subset(name %in% c("Amanda", "Jessica", "Patricia", "Deborah", "Dorothy", "Helen"))

plot <- ggplot(plot_data, aes(x = year, y = n, group = name, fill = name)) +
    geom_area() +
    theme(legend.position = "none") +
    labs(title = "Popularity of American names in the previous 30 years") +
    theme(
        legend.position = "none",
        panel.spacing = unit(0.1, "lines"),
        strip.text.x = element_text(size = 8)
    ) +
    facet_wrap(~name, scale = "free_y")

plot

library(ggalttext)

generate_alt_text(plot)
#> "Area chart split into 6 small charts arranged in a 2-row by 3-column grid,
# titled “Popularity of American names in the previous 30 years”."

Language

By default, it generates alt text in English, but there are other options such as lang = "fr" (for French):

generate_alt_text(plot, lang = "fr")
#> "Graphique en aires reparti en 6 petits graphiques organises dans une grille de
# 2 lignes par 3 colonnes, avec pour titre « Popularity of American names in the
# previous 30 years »."

and lang = "de" (for German):

generate_alt_text(plot, lang = "de")
#> "Flaechendiagramm, aufgeteilt auf 6 kleine Diagramme in einem Raster mit 2 Zeilen
# und 3 Spalten mit dem Titel „Popularity of American names in the previous 30
# years“."

[!TIP] If you would like to see another language available here, please open an issue!

Plot title

Plot titles are included by default. Set include_title = FALSE to leave the title out of the generated text:

generate_alt_text(plot, include_title = FALSE)
#> "Area chart split into 6 small charts arranged in a 2-row by 3-column grid."

Length limit

By default, ggalttext warns when generated text exceeds 125 characters. Use max_chars to change this threshold:

generate_alt_text(plot, max_chars = 200)

Set error_on_excess = TRUE to raise an error instead of a warning when the threshold is exceeded:

generate_alt_text(plot, max_chars = 100, error_on_excess = TRUE)

Error in `generate_alt_text()`:
! Alternative text is more than 100 characters (138). This is above what's considered
best for alt texts. Consider making it shorter with `include_title = FALSE` or increase
this threshold with the `max_chars` argument.

Flexibility

You can choose where the alt text comes from with the source argument. Since ggplot2 objects can include built-in alt text via labs(alt = "Here goes the text"), source can use that text or the one generated by ggalttext.

generate_alt_text(plot, source = "default") # Default value
generate_alt_text(plot, source = "auto")
generate_alt_text(plot, source = "origin")

• "default": always generate alt text with ggalttext.
• "auto": use existing alt text when it is non-empty; otherwise generate alt text with ggalttext.
• "origin": always return ggplot2::get_alt_text(p) as-is.

Quarto

ggalttext can add automatically alternative texts to all ggplot charts to your Quarto document. You just need to add ggalttext::enable_auto_alt_text() at the top of your document and you’re good to go.

---
title: "Example Quarto + ggalttext"
---

```{r}
ggalttext::enable_auto_alt_text()
```

## Hello world

```{r}
library(ggplot2)
library(babynames)

ggplot(babynames, aes(x = year, y = n, group = name, fill = name)) +
    geom_area() +
    labs(title = "Popularity of American names")
```

## Yet another chart

```{r}
ggplot(mtcars, aes(x = mpg, y = cyl)) +
    geom_point()
```

Here both charts will have an alternative text in the output document, no matter the output format (HTML, PDF, Typst, etc).

How to make accessible visualizations?

ggalttext will generate fairly good alternative text, provided your chart design follows accessibility guidelines:

• A title is a title, not just text in large font: always use labs() to add a title.
• Use color palettes suitable for people with color blindness. See colorblindr.
• Use high color contrast: if the background color is light, the text should be dark.
• For complex graphics, write the alternative text yourself, as automated tools such as ggalttext may not be accurate.

How it works

ggalttext does not use any AI, OCR, or similar technologies. Instead, it remains much more lightweight (no additional dependencies, no additional installation, etc.) by programmatically inspecting your plot. This is possible because ggplot2 stores every geom, layer, annotation, etc., within your figure object.

In my experience, AI is particularly effective at generating alternative text. However, feeding an image into an AI to get a result isn’t very cost-effective: in most cases, ggalttext does 90% of the work for 1% of the cost (These aren’t real numbers; they’re just there to illustrate my point).

[!NOTE] “Cost” here refers to financial cost, the cost associated with the software’s complexity, and the energy-to-performance ratio.

Coding with AI?

If you’re coding with AI, this page is pretty much all they need to know! Just copy everything above this section and send it to your favorite AI/LLM.

These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.