добавить запятую в легенду цветовой шкалы в geom_sf (R ggplot)

Question

Я делаю карту, используя ggplot и geom_sf, и хочу добавить запятые к значениям в легенде.Единственный способ отредактировать цветную полосу, который я нашел, - это «направляющие», но + guides(fill = guide_colorbar(labels="comma")), похоже, ничего не делает (может быть, потому, что «ярлыки» не являются спецификацией, включенной в «направляющие»?) Как я могу получитьидентичная легенда, которая включает запятые в количестве более 1000?

Код для получения всех данных немного длинный, поэтому я надеюсь, что кто-то знает ответ без представления, но я могу отредактировать его при необходимости.Спасибо!

landingsmap <- ggplot() + 
  scale_x_continuous(limits=c(-126, -116), expand=c(0,0)) + 
  scale_y_continuous(limits=c(32, 42), expand=c(0,0)) + 
  geom_sf(data=simpleblocks, aes(colour=number_fish, fill=number_fish)) + 
  scale_colour_gradient(low="lightcoral", high="darkred", name="Number of Fish") + 
  scale_fill_gradient(low="lightcoral", high="darkred", name="Number of Fish") +
  geom_sf(data=camap, colour="black") + 
  theme(
    panel.background = element_rect(fill="skyblue4", size=0.5, linetype="solid"),
    legend.position = c(0.78, 0.5)
    ) + 
  NULL
landingsmap 

Answer 1

Попробуй это.Я буду использовать пример из пакета sf.

library(sf)
#> Linking to GEOS 3.6.1, GDAL 2.1.3, proj.4 4.9.3
library(ggplot2)
fname <-  system.file("shape/nc.shp", package = "sf")
nc <-  read_sf(fname)

ggplot(nc)+
  geom_sf(aes(fill = BIR79))+
  scale_fill_continuous(labels=function(x) format(x, big.mark = ",", scientific = FALSE))

Создано в 2018-09-19 с помощью пакета Представить (v0.2.0).

Итак, для вашего примера вы должны написать:

scale_fill_gradient(low="lightcoral", high="darkred", name="Number of Fish", labels=function(x) format(x, big.mark = ",", scientific = FALSE))