Mini lollipop chart chunk wrapper

This function is used to insert lollipop charts into flextable with functions:

• compose() and as_paragraph(),

• append_chunks(),

• prepend_chunks().

It is now deprecated and will be soon defunct because we think it produces ugly results. Use gg_chunk() to replace it.

Usage

lollipop(
  value,
  min = NULL,
  max = NULL,
  rangecol = "#CCCCCC",
  bg = "transparent",
  width = 1,
  height = 0.2,
  unit = "in",
  raster_width = 30,
  positivecol = "#00CC00",
  negativecol = "#CC0000",
  neutralcol = "#CCCCCC",
  neutralrange = c(0, 0),
  rectanglesize = 2
)

Arguments

value

values containing the bar size

min

min bar size. Default min of value

max

max bar size. Default max of value

rangecol

bar color

bg

background color

width, height

size of the resulting png file in inches

unit

unit for width and height, one of "in", "cm", "mm".

raster_width

number of pixels used as width

positivecol

box color of positive values

negativecol

box color of negative values

neutralcol

box color of neutral values

neutralrange

minimal and maximal range of neutral values (default: 0)

rectanglesize

size of the rectangle (default: 2, max: 5) when interpolating value.

Note

This chunk option requires package officedown in a R Markdown context with Word output format.

PowerPoint cannot mix images and text in a paragraph, images are removed when outputing to PowerPoint format.

See also

compose(), as_paragraph()

Other chunk elements for paragraph: as_b(), as_bracket(), as_chunk(), as_equation(), as_highlight(), as_i(), as_image(), as_sub(), as_sup(), as_word_field(), colorize(), gg_chunk(), grid_chunk(), hyperlink_text(), linerange(), minibar(), plot_chunk()

Examples

iris$Sepal.Ratio <- (iris$Sepal.Length - mean(iris$Sepal.Length)) / mean(iris$Sepal.Length)
ft <- flextable(tail(iris, n = 10))

ft <- compose(ft,
  j = "Sepal.Ratio", value = as_paragraph(
    lollipop(value = Sepal.Ratio, min = -.25, max = .25)
  ),
  part = "body"
)
#> Warning: lollipop function is deprecated as authors don't like the result, please open an issue if you are using it.

ft <- autofit(ft)
ft
Sepal.Length
Sepal.Width
Petal.Length
Petal.Width
Species
Sepal.Ratio
6.7
3.1
5.6
2.4
virginica
6.9
3.1
5.1
2.3
virginica
5.8
2.7
5.1
1.9
virginica
6.8
3.2
5.9
2.3
virginica
6.7
3.3
5.7
2.5
virginica
6.7
3.0
5.2
2.3
virginica
6.3
2.5
5.0
1.9
virginica
6.5
3.0
5.2
2.0
virginica
6.2
3.4
5.4
2.3
virginica
5.9
3.0
5.1
1.8
virginica