Как в R сделать точки прозрачными при использовании масштаба _размера в ggplot2?

Это уравнение следует из моего предыдущего вопроса . Я хочу нанести точки, представляющие общую численность населения, и до сих пор я использовал scale_size, чтобы сделать размер точек относительно общей численности населения.

Но я хочу сделать эти точки прозрачными, потому что точки закрывают карту. Однако я открыт для других вариантов, пока сообщение, которое я пытаюсь отправить, ясно.

# load required packages
library(ggmap)
library(ggplot2)

# query map of Birmingham, AL
al1 <- get_map(location = c(lon = -86.304474, lat = 32.362563), zoom = 11,
       source = "osm", maptype = 'terrain')

al1MAP <- ggmap(al1)+ geom_point(data=quote_bmh, 
          aes(x=IntPtLon, y=IntPtLat, size=TotPop, colour="gold2"),
          colour="gold2") + scale_size(range=c(0,15))