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