R语言：堆叠柱状图Y轴标签等距显示问题求助

我用R语言的ggplot2绘制不同算法性能的堆叠柱状图，但Y轴标签过于密集，导致图表可读性差。希望实现类似log10变换后的Y轴标签等距效果，但由于大量数据接近0，log10变换会使图表难以解读，且堆叠柱状图不适用于log10变换。

当前图表效果 #

我的代码 #

library(tidyverse)
frame1 <- tibble(
  class = c("Falcon", "Dilithium", "SPHINCS", "CROSS", "Hawk",
            "LESS", "MAYO", "MIRATH", "MQOM", "UOV", "PERK",
            "QRUOV", "RYDE", "SDiTH", "SNOVA", "FAEST", "SQIsign"),
  min_val = c("Falcon512AVX2", "Dilithium2-AES", "SPHINCS_Shake256_128f_simple",
          "CROSS_1_RSDPG_SPEED", "Hawk-512", 
          "LESS_252_192", "MAYO-1", "MIRATH1AF", 
          "MQOM2-L1-gf256-short-r3", "OV(256,112,44)-pkc", "PERK128S3", 
          "qruov1q127L3v156m54portable64a", "RYDE-1S", "SDiTH-CAT1-SHORT",
          "SNOVA_24_5_4_ESK", "faest_em_128f", "SQIsign_lvl1"),
  max_val = c("Falcon512AVX2", "Dilithium2", "SPHINCS_HARAKA128s_robust",
               "CROSS_1_RSDP_SPEED", "Hawk-512",
               "LESS_252_45", "MAYO-2", "MIRATH1BS",
               "MQOM2-L1-gf2-fast-r5", "OV(16,160,64)-classic", "PERK128F5",
               "qruov1q7L10v740m100portable64s", "RYDE-1F", "SDiTH-CAT1-FAST",
               "SNOVA_37_8_4_SSK", "faest_128s", "SQIsign_lvl1"),
  min_data = c(6.443046, 1.267496, 2.833732, 0.017197, 2.521503,
                0.647719, 0.392322, 1.270687, 1.344364, 2.515823, 1.12733,
                9.796289, 1.127787, 1.715746, 0.206842, 1.081237, 18.09388),
  max_data = c(6.443046, 1.29639, 176.637902, 0.026434, 2.521503,
                2.084721, 0.517931, 2.353453, 2.2628, 3.117372, 1.30242, 
                40.514029, 1.250092, 1.954028, 0.830463, 1.444805, 18.09388)
)
frame <- frame1 |> 
  mutate(diff_data = max_data - min_data, 
         order = as_factor(class)) |>
  rename(diff_val=max_val) |>
  select(-max_data) |>
  pivot_longer(contains("_"), names_to = c("what", ".value"), names_sep="_")

ggplot(frame, aes(fill=val, y=data, x=order, label=data))+
  geom_bar(position="stack", stat="identity", color="white") + 
  labs(fill="Algorithm Variants",  x="Algorithm Class", y="Runtime (Milli-Seconds)") + 
  scale_fill_manual(name = "Algorithm Variants", values=c("grey", "blue", "grey", "green", "grey", "yellow", "grey", "orange", "grey", "red", "grey", "purple", "grey", "pink", "grey", "turquoise", "grey", "tan", "grey", "sienna", "grey", "gold", "grey", "lightblue", "grey", "lightcyan", "grey", "darksalmon", "grey", "darkblue", "grey", "azure", "grey", "bisque"))+
  ggtitle("Level 1 Key-Generation Runtime (Milli-Seconds)") +
  theme(legend.key.size = unit(0.1, 'cm'), #change legend key size
        legend.key.height = unit(.1, 'cm'), #change legend key height
        legend.key.width = unit(.1, 'cm'), #change legend key width
        legend.title = element_text(size=8), #change legend title font size
        legend.text = element_text(size=5),
        plot.title = element_text(hjust = 0.75),
        axis.text.y = element_text(margin = margin(r=5)) #change legend text font size
  ) +
  scale_y_continuous(breaks = c(0, 10^(-3:2)))

更新 #

尝试了@Jon Spring提出的解决方案，虽部分解决问题，但Y轴标签与实际数据值不匹配。相关效果见：

内容的提问来源于stack exchange，提问作者ryanquestioncsp