行间距

Question

我正在用 R 绘制克利夫兰点图。 x 轴上有月份，y 轴上有物种。这些物种是重复的，因为一个来自物候学，另一个来自鸟类粪便上的种子，所以我给它们上了不同的颜色。该图看起来不错，但我试图在不同物种之间获得不同的间距，但我似乎无法完成。我什至不知道这是可能的。有人可以帮助我吗？

这是我的代码：

 spp                    com   fim classe   cat
  <chr>                <dbl> <dbl>  <dbl> <dbl>
1 Casearia sylvestris      1     3      1     1
2 Pera glabrata            4     5      1     2
3 Trichilia pallida        1     2      1     3
4 Trichilia pallida       10    11      1     3
5 Casearia sylvestris.     1     5      2     1
6 Pera glabrata.           9    11      2     2
7 Pera glabrata.           1     5      2     2
8 Trichilia pallida.       9    11      2     3
9 Trichilia pallida.       1     2      2     3

duracao_pheno_birds <- ggplot(seeds_sync, aes(x = com, y = spp, xend = fim, yend = spp, 
group = spp, color = factor(classe))) +
geom_segment(size = 2) +
geom_point(aes(color = factor(classe)), size = 3.5) +  
geom_point(aes(x = fim, y = spp, color = factor(classe)), size = 3.5) +
labs(x = "Meses", y = "Espécies", color = "Categorias") +
scale_color_manual(values = c("1" = "#6A0207", "2" = "#3B5708"),
                 labels = c("Sementes coletadas", "Fenologia")) +  
scale_x_continuous(breaks = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12), 
                 labels = c("A", "S", "O\n\n2022", "N", "D", "J", "F", 
"M\n\n 2023", "A", "M", "J", "J")) +
scale_y_discrete(labels = expression(italic("Trichilia pallida"), italic("Trichilia pallida"),
italic("Pera glabrata"), italic("Pera glabrata"),
                                   italic("Casearia sylvestris"), italic("Casearia sylvestris"))) +
theme_minimal() +
theme(legend.position = "top",
    axis.text.y = element_text(size = 12), 
    text = element_text(size = 14))

我尝试手动更改间距，但它不起作用，因为我可能做错了。

Answer 1

您可以使用 theme() 中的aspect.ratio 来控制y 轴上项目之间的间距。请注意，该值是高度与宽度的比率。

theme(
    aspect.ratio = 2/1
)