Package {ggaltdata}

Store a generated alternative text in the plot

Description

Fills labs(alt = ), so that ggplot2::get_alt_text(), Shiny's renderPlot() and tools that read it use the generated text. A text already written by hand is kept unless overwrite = TRUE.

Usage

add_alt(p, lang = "en", max_chars = 250, overwrite = FALSE, area_var = NULL)

Arguments

Value

The plot, with the alternative text set.

Examples

library(ggplot2)
df <- data.frame(item = c("Apples", "Pears"), score = c(3.6, 2.7))
p <- add_alt(ggplot(df, aes(item, score)) + geom_col())
ggplot2::get_alt_text(p)

The data table of a chart

Description

The data table of a chart

Usage

alt_data(p, area_var = NULL)

Arguments

Value

A data frame with the plotted values under readable column names.

Examples

library(ggplot2)
df <- data.frame(item = c("Apples", "Pears"), score = c(3.6, 2.7))
alt_data(ggplot(df, aes(item, score)) + geom_col())

Long description and data table, for reading in the R console

Description

Builds a plain-text description of the chart (title, structure, every finding, ranking) and its data table. Printed in the console, it reads line by line in a screen reader.

Usage

alt_describe(p, lang = "en", n_extremes = 3, area_var = NULL)

Arguments

Value

An object of class ggaltdata with elements short_sentences, long, table and facts; its print method writes the long description and the data table.

Examples

library(ggplot2)
df <- data.frame(item = c("Apples", "Pears", "Plums"), score = c(3.6, 2.7, 3.2))
alt_describe(ggplot(df, aes(item, score)) + geom_col())

Generate the short alternative text of a ggplot2 chart

Description

Reads the data drawn by the chart and writes one or two sentences with its main finding: highest and lowest values, gaps between two groups, trends of series, intervals that overlap or not. Every number comes from the data of the chart.

Usage

alt_text(p, lang = "en", max_chars = 250, n_extremes = 3, area_var = NULL)

Arguments

Value

A character string.

Examples

library(ggplot2)
df <- data.frame(item = c("Apples", "Pears", "Plums"), score = c(3.6, 2.7, 3.2))
p <- ggplot(df, aes(item, score)) + geom_col() + labs(y = "average score")
alt_text(p)
alt_text(p, lang = "it")

Add the data table to a Word document

Description

Requires the officer package.

Usage

as_docx_table(x, doc, caption = NULL, lang = "en")

Arguments

Value

The rdocx object with the table added.

Examples

if (requireNamespace("officer", quietly = TRUE)) {
  library(ggplot2)
  df <- data.frame(item = c("Apples", "Pears"), score = c(3.6, 2.7))
  p <- ggplot(df, aes(item, score)) + geom_col()
  doc <- as_docx_table(p, officer::read_docx(), caption = "Data of Figure 1")
  print(doc, target = file.path(tempdir(), "report.docx"))
}

The data table as a Markdown table

Description

The data table as a Markdown table

Usage

as_markdown(x, caption = NULL, digits = NULL, lang = "en")

Arguments

Value

A character string with a pipe table.

Examples

library(ggplot2)
df <- data.frame(item = c("Apples", "Pears"), score = c(3.6, 2.7))
cat(as_markdown(ggplot(df, aes(item, score)) + geom_col()))

Save the alternative text and the data table next to an image

Description

Writes two files beside the image saved with ggplot2::ggsave(): for file = "figure1.png", figure1.alt.txt (short and long text) and figure1.data.csv (the data table).

Usage

save_alt(p, file, lang = "en", max_chars = 250, area_var = NULL)

Arguments

Value

Invisibly, the paths of the two files written.

Examples

library(ggplot2)
df <- data.frame(item = c("Apples", "Pears"), score = c(3.6, 2.7))
p <- ggplot(df, aes(item, score)) + geom_col()
f <- file.path(tempdir(), "figure1.png")
ggsave(f, p, width = 4, height = 3)
save_alt(p, f)