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"
)
ft <- autofit(ft)
ft
Run the code above in your browser using DataLab