Positive and negative horizontal-barplot nanoplots

[rich-iannone]

The changes here allow for nanoplots that are essentially single-valued bars (when plot_type = "bar" and there is just a single value to plot) to display in positive and negative directions. A zero-value line marker is now displayed. Negative values have a different color (obtained from the data_bar_negative_stroke_color arg in nanoplot_options()) and other settable display attributes.

Here are some examples:

library(tidyverse)
library(gt)

# Positive, zero-value, NA
dplyr::tibble(
  a = c(4.6, 0.2, 5.6, 6.3, 0, NA)
) |>
  gt() |>
  cols_nanoplot(columns = a, plot_type = "bar") |>
  tab_style(
    style = cell_borders(sides = c("left", "right"), weight = "2px"),
    locations = cells_body(columns = nanoplots)
  )

# Negative, zero-value, NA
dplyr::tibble(
  a = c(-4.6, -0.2, -5.6, -6.3, 0, NA)
) |>
  gt() |>
  cols_nanoplot(columns = a, plot_type = "bar") |>
  tab_style(
    style = cell_borders(sides = c("left", "right"), weight = "2px"),
    locations = cells_body(columns = nanoplots)
  )

# Positive, zero-value, negative 
dplyr::tibble(
  a = c(-20, -10, 0, 10, 5)
) |>
  gt() |>
  cols_nanoplot(columns = a, plot_type = "bar") |>
  tab_style(
    style = cell_borders(sides = c("left", "right"), weight = "2px"),
    locations = cells_body(columns = nanoplots)
  )

# All zero nanoplots
dplyr::tibble(
  a = c(0, 0, 0, 0, 0)
) |>
  gt() |>
  cols_nanoplot(columns = a, plot_type = "bar") |>
  tab_style(
    style = cell_borders(sides = c("left", "right"), weight = "2px"),
    locations = cells_body(columns = nanoplots)
  )

# Constant non-zero value (positive)
dplyr::tibble(
  a = c(5, 5, 5, 5, 5)
) |>
  gt() |>
  cols_nanoplot(columns = a, plot_type = "bar") |>
  tab_style(
    style = cell_borders(sides = c("left", "right"), weight = "2px"),
    locations = cells_body(columns = nanoplots)
  )

# Constant non-zero value (negative)
dplyr::tibble(
  a = c(-5, -5, -5, -5, -5)
) |>
  gt() |>
  cols_nanoplot(columns = a, plot_type = "bar") |>
  tab_style(
    style = cell_borders(sides = c("left", "right"), weight = "2px"),
    locations = cells_body(columns = nanoplots)
  )

# Single value bars combined with multiple bars
dplyr::tibble(
  a = c(4.6, 0.2, 5.6, "3.4,-2.4,7.8,1.2,-6.8,0,2.4,-7.4,5.2", 6.3, 0, NA)
) |>
  gt() |>
  cols_nanoplot(columns = a, plot_type = "bar") |>
  tab_style(
    style = cell_borders(sides = c("left", "right"), weight = "2px"),
    locations = cells_body(columns = nanoplots)
  )