# NOT RUN {
iris$Sepal.Ratio <- (iris$Sepal.Length - mean(iris$Sepal.Length))/mean(iris$Sepal.Length)
myft <- flextable( tail(iris, n = 10 ))
myft <- compose( myft, j = "Sepal.Ratio", value = as_paragraph(
lollipop(value = Sepal.Ratio, min=-.25, max=.25)
),
part = "body")
autofit(myft)
# }
Run the code above in your browser using DataLab