Skip to content
R for the Rest of Us Logo

Adding Charts with Flextable

This lesson is locked

Get access to all lessons in this course.

If the video is not playing correctly, you can watch it in a new window


Click on the transcript to go to that point in the video. Please note that transcripts are auto generated and may contain minor inaccuracies.

Sparklines are small lines that help you to find trends in the data really fast. By now, they’re one of the standard tricks in the table trade. Here's how to add one in a flextable.

counts_over_time <- penguin_counts |> 
  group_by(species, island, sex) |> 
  summarise(collected_data = list(n)) |> 

counts_over_time |> 
  flextable() |> 
  compose(j = 'collected_data', value = as_paragraph(
    plot_chunk(value = collected_data, type = 'line', col = 'dodgerblue4')

And here's how to add a boxplot to a table.

penguin_mass <- penguins |> 
  group_by(species) |> 
  summarise(body_masses = list(body_mass_g)) |> 

penguin_mass |> 
  flextable() |> 
    j = 'body_masses',
    value = as_paragraph(
        value = body_masses,
        type = 'dens',
        col = 'dodgerblue4',
        width = 3,
        height = 1

Your Turn

Instead of turning columns into a heat map, add another column to your table that contains a sparkline depicting the life expectancy over time for each country. If you don’t want to create sparklines for the average and maximum rows, then use value = as_paragraph('') in a second call to the compose() function.

Hint: If you want, you can manually change the width of the sparkline column with width() after autofit() was called.

Your table should look like this:

Have any questions? Put them below and we will help you out!

You need to be signed-in to comment on this post. Login.