ggplot 地图 - 在颜色条上添加数字标签

Question

如何在颜色条 ggplot 地图上添加开始和结束数字标签。 现在我的代码如下所示：

my_breaks <- c(1,60000,1200000,24000000,320000000)
ggplot(data = opcine_spojeno) +
geom_sf(aes(fill= HAMAG_Bespovratna_IRI_Pod))+
scale_fill_viridis(trans = "log",
                   name="€",
                   breaks=c(1,60000,1200000,24000000,320000000),
                   labels = scales::label_comma(), 
                   alpha = 3/4) +
 labs(
subtitle = "HAMAG BICRO:Isplaćana bespovratna sredstva u razdoblju 2016-2023",
caption = "Data: HAMAG-BICRO"
 ) +
 theme_minimal()

我的地图看起来像这样，我想在右侧添加颜色栏 1 和 320 000 000，我用一段代码尝试过

my_breaks <- c(1,60000,1200000,24000000,320000000) 

但它只在颜色条中间添加数字

Answer 1

以 nc 数据集为基础：

library(sf)
library(dplyr)
library(ggplot2)
library(viridis)

# Sample data
set.seed(1)
nc <- st_read(system.file("shape/nc.shp", package = "sf")) %>%
  mutate(HAMAG_Bespovratna_IRI_Pod = sample(c(NA, 1:3.2e8), 100, replace = TRUE))


my_breaks <- c(1,60000,1200000,24000000,320000000)

ggplot(data = nc) +
  geom_sf(aes(fill = HAMAG_Bespovratna_IRI_Pod))+
  scale_fill_viridis(trans = "log",
                     name="€",
                     breaks = my_breaks,
                     limits = c(1, 3.2e8),
                     labels = scales::label_comma(), 
                     alpha = 3/4) +
  labs(
    subtitle = "HAMAG BICRO:Isplaćana bespovratna sredstva u razdoblju 2016-2023",
    caption = "Data: HAMAG-BICRO"
  ) +
  theme_minimal()