Change axis text size and bar text size

[erikagucciardo]

Hi,

I would like to change the axis text size and the size of the text on top of the bars, how to achieve that?

This is my current code; despite I set the size to be 4, the size does not change.

plot = ComplexUpset::upset(
  data = Joint.all,
  intersect = Workflows,
  min_size = 1,
  width_ratio = 0.1,
  stripes=c('white', '#F7F7F7'),
  set_sizes = (
    upset_set_size(
      geom = geom_bar(fill = "black")
    )
    + scale_y_continuous(limits = c(0,NA), 
                         breaks = c(0,1000,2000,3000),
                         labels = c("0","1k","2k","3k"))
  ),
  base_annotations = list(
    'Intersection size (>1500)'=(
      intersection_size(mapping = aes(fill = Patient),
                        text = list(size = 2))
      + coord_cartesian(ylim = c(2000, NA))
      + ylab('')
      + scale_fill_manual(values=c('1'='#006ba4',
                                   '2'='#ff800e',
                                   '3'='#ababab',
                                   '4'='#595959',
                                   '5'='#5f9ed1',
                                   '6'='#898989',
                                   '7'='#a2c8ec',
                                   '8'='#c85200',
                                   '9'='#ffbc79',
                                   '10'='#cfcfcf'))
    ),
    'Intersection size'=(
      intersection_size(mapping = aes(fill = Patient),
                        text = list(size = 2))
      + coord_cartesian(ylim = c(0, 50), expand = 0.000001)
      + scale_fill_manual(values=c('1'='#006ba4',
                                   '2'='#ff800e',
                                   '3'='#ababab',
                                   '4'='#595959',
                                   '5'='#5f9ed1',
                                   '6'='#898989',
                                   '7'='#a2c8ec',
                                   '8'='#c85200',
                                   '9'='#ffbc79',
                                   '10'='#cfcfcf'))
    )
  ),
  matrix = (
    intersection_matrix(
      geom = geom_point(
        size = 0.2
      ),
      segment = geom_segment(
        size = 0.2
      ))),
  themes = upset_modify_themes(
    list(
    intersections_matrix = list(
      theme(
        # hide intersections
        axis.text.x = element_blank(),
        axis.ticks.x = element_blank(),
        # hide group title
        axis.title.y = element_blank(),
        axis.text.y = element_text(color = "red"),
        panel.grid = element_blank()
      )
    ),
    'Intersection size (>1500)' = list(
      theme_minimal(),
      theme(
        axis.text.x = element_blank(),
        axis.title.x = element_blank(),
        panel.grid = element_blank(),
        axis.text.y = element_text(size = 4, color = "red"),
        axis.line.y = element_line(colour = "black", size = 0.2344, lineend="round"),
        axis.ticks.y = element_line(colour = "black", size = 0.2344, lineend="round"),
        axis.ticks.length.y = unit(1, "pt"),
        legend.position = "none"
      )
    ),
    'Intersection size' = list(
      theme_minimal(),
      theme(
        axis.text.x = element_blank(),
        axis.title.x = element_blank(),
        panel.grid = element_blank(),
        axis.title.y = element_text(size = 4),
        axis.text.y = element_text(size = 4, color = "red"),
        axis.line = element_line(colour = "black", size = 0.2344, lineend="round"),
        axis.ticks.y = element_line(colour = "black", size = 0.2344, lineend="round"),
        axis.ticks.length.y = unit(1, "pt"),
        legend.text = element_text(colour = "black",size = 4),
        legend.justification = "top",
        legend.position = "none",
        legend.title = element_blank(),
        legend.key.size = unit(6,"pt"),
        legend.spacing.x = unit(1,"pt"),
        legend.background = element_blank(),
        legend.box.margin = margin(0,0,0,0),
        legend.margin = margin(c(0,0,0,0))
      )
    ),
    overall_sizes = list(
      theme(
        # hide groups
        axis.title.y=element_blank(),
        axis.text.y=element_blank(),
        axis.ticks.y=element_blank(),
        axis.ticks.x = element_line(colour = "black", size = 0.2344, lineend="round"),
        axis.ticks.length.x = unit(1, "pt"),
        axis.title.x = element_text(size = 4),
        axis.text.x = element_text(size = 4, color = "black", angle = 90),
        panel.background = element_blank(),
        panel.grid = element_blank()
      )
    ),
    default=list(
      theme_minimal(),
      theme(
        axis.text.x=element_blank(),
        axis.title.x=element_blank()
      )
    )
  )
  )
  ,sort_intersections_by = "degree",
  guides = "keep"
) + patchwork::plot_layout(
  # 20/total for >1500, 100/total for <300, 50/total for intersection matrix, where total = 20+100+50
  heights=c(0.2, 1, 0.5)
)
plot

[erikagucciardo]

I now see that it seems to rather be a problem with importing the PDF file to CorelDraw for editing...
It would still be great if you could check that the code is correct for what I am aiming to do :)