Как увеличить размер легенды в ggplot2

Question

Я новичок в библиотеке ggplot в R и не могу понять, как увеличить размер моей легенды.Я знаю, что вы можете выполнять осевую манипуляцию с theme(axis...), но я не могу найти правильный аргумент для передачи!

Код, который я использую для создания фигуры, находится здесь:

library(ggplot)
library(ggalluvial)

ggplot(data = wrong_cases_all,
       aes(axis1 = cae, axis2 = places,
           y = freq)) +
  scale_x_discrete(limits = c("CAE", "VGG16-Places365"))+
  xlab("Model") +
  geom_alluvium(aes(fill = freq)) +
  geom_stratum() + geom_text(stat = "stratum", label.strata = TRUE) +
  theme_minimal() 

У кого-нибудь есть советы?

Пример данных:

wrong_cases_all <- read.table(header=TRUE, text = "cae places  freq
1    0      0 19462
2    0      1 23625
3    0      2 14431
4    0      3  9767
5    0      4 14025
6    1      0  8696
7    1      1 88510
8    1      2 12426
9    1      3 33408
10   1      4 16391
11   2      0   540
12   2      1  7908
13   2      2  2132
14   2      3  2429
15   2      4 11558
16   3      0  5215
17   3      1 19993
18   3      2  4361
19   3      3  5984
20   3      4  6993
21   4      0  2258
22   4      1  1382
23   4      2  1409
24   4      3   575
25   4      4  1338")

Answer 1

Добавьте

...
+ theme(
   legend.key.width = unit(1, "cm"),
   legend.key.height = unit(2, "cm")
  )

и измените единицы в соответствии с вашими потребностями.