I’m building a workbook for my colleagues containing all the tables they need for our Sector report. I want to add a table which is grouped by a factor.

this works, as long is I dont use factor(…, levels=…). Once I remove the “#”, Excel complains about unreadable content.

df_pers35 <- 
  df_fte %>% 
  mutate(CATEGORIE=
           factor(
             case_when(
    (CATEGORIE=="FTE'S PERSONEN JONGER DAN 15 JAAR "| 
     CATEGORIE=="FTE'S PERSONEN 15 - 25 JAAR ")           ~ "JONGER DAN 25 JAAR",
     CATEGORIE=="FTE'S PERSONEN 25 - 35 JAAR "            ~ "25 - 35 JAAR",
     CATEGORIE=="FTE'S PERSONEN 35 - 45 JAAR "            ~ "35 - 45 JAAR",
     CATEGORIE=="FTE'S PERSONEN 45 - 55 JAAR "            ~ "45 - 55 JAAR",
     CATEGORIE=="FTE'S PERSONEN 55 - 65 JAAR "            ~ "55 - 65 JAAR",
     CATEGORIE=="FTE'S PERSONEN 65 JAAR EN OUDER "        ~ "65 JAAR EN OUDER"), 
         levels=c("JONGER DAN 25 JAAR", "25 - 35 JAAR", "35 - 45 JAAR", "45 - 55 JAAR", "55 - 65 JAAR", "65 JAAR EN OUDER"))
)%>% 
  filter(CATEGORIE=="JONGER DAN 25 JAAR"|
           CATEGORIE=="25 - 35 JAAR"|
           CATEGORIE=="35 - 45 JAAR"|
           CATEGORIE=="45 - 55 JAAR"|
           CATEGORIE=="55 - 65 JAAR"|
           CATEGORIE=="65 JAAR EN OUDER") %>%
  group_by(CATEGORIE, JAAR) %>% 
  summarise(aantal=round(sum(AANTAL, na.rm=TRUE),1), .groups = 'drop') %>% 
  spread(JAAR, aantal) 

if (is.null(wb_to_df(wb, sheet = "PERS35", dims = wb_dims(cols = "B", rows = 2)))){
  wb <- wb_add_data_table(
    wb=wb,
    x = df_pers35,
    dims = "B2",
    banded_rows = TRUE,
    table_style = "TableStyleLight16"
  ) %>% 
    wb_add_fill(sheet = "PERS35", dims = "B2:B8", color = wb_color("green"))%>% 
    wb_add_fill(sheet = "PERS35", dims = "K2:O8", color = wb_color("green"))
}