Issue with fill colours for set sizes about complex-upset HOT 3 OPEN

upset(
  mm1, disease_names, width_ratio=0.2, height_ratio = 0.7,
  base_annotations=list(
    #Intersection size and annotations)
    'Intersection size'=intersection_size(mode = 'exclusive_intersection',
                                          text_mapping=aes(
                                            label=paste0(!!size, '\n(', round(!!get_size_mode('exclusive_intersection')/nrow * 100), '%', ')'
                                            )
                                          ), text=list( 
                                            size = 2.5), size=0.8, 
                                          mapping=aes(fill='bars_color')
    ) + ylab("Prevalence") 
    + scale_y_continuous(labels=function(x) paste0(x/nrow*100, "%"), breaks = seq(0,0.30*nrow,0.10*nrow), limits = c(0,0.30*nrow))
    + scale_fill_manual(values=c('bars_color'= NA), guide='none')
    + theme(plot.background = element_rect(color = 'white', fill = 'white'), 
            element_line(linewidth = 0, colour = 'white'))
  ), 
  #sets and set annotations
  encode_sets=FALSE,  # for annotate() to select the set by name disable encoding
  set_sizes=(
    upset_set_size(position='right', 
                   # add colours to the set sizes
                   geom=geom_bar(
                     aes(fill=mm_count2, x = group)))
    + scale_colour_manual(values = c(
      "0"= 'steelblue1',
      "1"= 'firebrick1',
      "2" = 'violetred3',
      "3" = 'royalblue2',
      "4" = 'firebrick', 
      "5"= 'darkmagenta')) 
    + geom_text(aes(label=paste0(..count.., ' (', round(..count../nrow*100), '%', ')')), 
                stat='count', hjust =1.1, vjust = "middle",  size = 2.5, nudge_y = 80) 
    + scale_y_continuous(labels=function(x) paste0(x/nrow*100, "%"), breaks = seq(0,0.50*nrow,0.20*nrow), limits = c(0,0.50*nrow))
    # you can also add annotations on top of bars:
    + expand_limits(y=400)
    + theme(axis.text.x=element_text(angle=45))
    + ylab('Prevalence of individual diseases')
  ), 
  sort_sets = 'FALSE',
  sort_intersections_by=c('degree', 'cardinality'),
  ggtitle('Full data set'),
  sort_intersections = 'ascending',
  guides='over',
  # colour arrangements for intersection matrix
  queries= c(
    query_by_degree(
      mm1, disease_names,
      mode=mode,
      matrix=intersection_matrix(
        geom=geom_point(shape='circle filled', size=10)),
      params_by_degree=list(
        '0'=list(color = 'steelblue1', fill='steelblue1'),
        '1'=list(color = 'firebrick1', fill='firebrick1'),
        '2'=list(color = 'violetred3', fill='violetred3'),
        '3'=list( color = 'royalblue2',fill='royalblue2'),
        '4'=list(color = 'firebrick',fill='firebrick'), 
        '5'=list(color = 'darkmagenta', fill='darkmagenta')), shared=list(
          only_components=c("intersections_matrix", "Intersection size", "Set size"),
          color='turquoise'))
  )
)