R语言金字塔图文本对齐、布局优化及中间差值百分比展示技术咨询

嗨，我最近用R做了下面这个能源使用的金字塔图，但遇到两个问题搞不定，想请教下大家：

• 目前图里的部分元素好像超出了绘图区域，不知道该怎么调整布局，让所有内容都乖乖待在图框里；
• 我想把2024（蓝色系列）和2023（红色系列）数值的差值百分比，用更大的字体醒目地放在图的中间位置，不知道该怎么实现。

当前生成的金字塔图：

我用到的代码如下：

energy_data_pyramid <- energy_data %>%
  select(Year, Location, Month, energy_use_kWh) %>%
  spread(key = Year, value = energy_use_kWh) %>%
  mutate(
    energy_use_kWh_2023 = ifelse(!is.na(`2023`), -`2023`, 0),  # 2023数值取负用于左侧金字塔
    energy_use_kWh_2024 = ifelse(!is.na(`2024`), `2024`, 0)    # 2024数值保持正用于右侧金字塔
  ) %>%
  gather(key = "Year", value = "energy_use_kWh", energy_use_kWh_2023, energy_use_kWh_2024) %>%
  mutate(
    Year = recode(Year, "energy_use_kWh_2023" = "2023", "energy_use_kWh_2024" = "2024")
  )
# 注：原始代码后续部分被截断，以上为现有可展示的代码片段

备注：内容来源于stack exchange，提问作者Rfanatic