Skip to content
R for the Rest of Us Logo
R for the Rest of Us Logo

Use groups instead of repetitive columns

This lesson is locked

Get access to all lessons in this course.

Transcript

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

It’s better to use groups instead of repetitive columns. For instance, the island column repeats itself multiple times before we move on to the next island name. This is a doesn’t really look good. And it would be nice if we can just make it visually clearer that certain rows belong to certain islands.

The way to do that is to use groups. This means that we have rows (one for each island) that spans all of the columns. Here, we’ll transition to as_flextable() because I like hide_grouplabel. But I’ll show the flextable() version before that.

penguin_counts_wider |> 
  mutate(island = paste('Island: ', island)) |> 
  as_grouped_data(
    groups = 'island'
  ) |> 
  as_flextable(hide_grouplabel = TRUE) |> 
  set_header_labels(
    island = 'Island',
    year = '',
    Adelie_female = 'Female',
    Adelie_male = 'Male',
    Chinstrap_female = 'Female',
    Chinstrap_male = 'Male',
    Gentoo_female = 'Female',
    Gentoo_male = 'Male'
  ) |> 
  add_header_row(
    values = c('', 'Adelie', 'Chinstrap', 'Gentoo'),
    colwidths = c(1, 2, 2, 2)
  ) |> 
  add_header_lines(
    values = c('Penguins in the Palmer Archipelago', 'Data is courtesy of the {palmerpenguins} R package')
  ) |> 
  align(i = 3, align = 'center', part = 'header') |> 
  autofit()

Your Turn

Group your table by continent. Using hide_grouplabel = TRUE in as_flextable() may be helpful. At the end, 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.

Ahmad Rabiee

Ahmad Rabiee

October 11, 2023

Hi When I run these codes, I get this error message (see below). Can you please help, not sure what I am doing wrong here? Ahmad

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Error in add_header_row(set_header_labels(as_flextable(as_grouped_data(penguin_counts_wider,  : 
  sum of colwidths elements must be equal to the number of col_keys: 7.

#----------------------------------------------------------------------------------------------------
Codes

#new names for columns
new_names <- c("Island", "Year", rep(c("Female", "Male"), 3))
names(new_names) <- colnames(penguin_count_wider)

# This code groups for Island
penguin_counts_wider |>
  as_grouped_data('island') |>
  as_flextable() |>
  set_header_labels(values= new_names) |>

# add new headers 
  add_header_row(
    values= c('', 'Adelie', "Chinstrap", "Gentoo"),  # '' is blank for the first two columns
    colwidths= c(2,2,2,2)
  ) |>

# add new lines for the title and subtitle   
  add_header_lines(
    values=c(
      "Title: Penpuins in Palmer Archipelago", 
      "Subtitle:Data is the courtesy of the (PalmerPenguins) R Package")) |>

 # Align column headings (centered) a    
  align(i = 3, align = 'center', part = 'header') |> 
  # it's already left-aligned but for demo purposes we do it again
  align(j = 'year', align = 'right', part = 'body') |> 
autofit()
#---------------------------------------------------------------------------------------------------

Albert Rapp

Albert Rapp

October 12, 2023

Hi Ahmad,

when you switch to groups you actually "lose" one column. That's why in add_header_rows() you will need to modify colwidths= c(2,2,2,2) to colwidths= c(1,2,2,2). It's easy to forget this change. That's what happened to me in the video at 2:22.

Best, Albert