Указание цветовой шкалы для карт в ggplot

Трудно установить цветовые шкалы для карт в ggplot. Мне нужна оттенки серого. Очень благодарен за идею, где я ошибаюсь. Мне также интересно, есть ли более эффективный способ передачи переменной цвета в ggplot (т. Е. Чем прикреплять ее к «укрепленным» данным)?

library(ggplot2)
states <- map_data("state")
var <- data.frame(table(states$region)) # using rows as a dummy variable
states$variable <- var$Freq[match(states$region,var$Var1)]

map <- ggplot(states, aes(x=long, y=lat)) + 
  geom_polygon(aes(group=group, fill=variable), col=NA,lwd=0)

map + scale_colour_gradient(low='white', high='grey20')
map + scale_colour_grey()

enter image description here

Ответы на вопрос(2)

Ваш ответ на вопрос