我想使地图如下图所示。此图显示了每个国家/地区的高频来源。

为此，我准备了一个包含以下内容的“ csv”文件，该文件包括“经度”，“纬度”和“源”，如下所示。每个纬度和经度都有许多来源，分别对应于每个国家/地区。例如，第一行在“ map.where函数”中引用“英国”。

latitude    longitude   source
51.318488   -1.0605415  English
51.4603395  -0.115406   Korean
47.9818605  0.195548    English
40.226213   28.954341   English
53.717188   27.978099   English
45.800371   9.0838175   French
41.292651   12.573501   French
41.8984165  12.5451455  Japanese
53.651504   -2.6340755  English
48.382929   31.181446   Korean
40.176071   29.121293   English
51.6471965  -0.7084465  English
40.54108    -3.63148    English
40.6280185  -8.6396565  French
51.5424365  -0.159403   French
36.89007    30.680889   Japanese
48.8588335  2.347003    English
52.238854   -0.882951   Korean
37.383198   -5.923545   English
45.080766   11.5820475  English
41.392657   2.1412275   English
41.0213205  29.0052225  French
53.0184905  -1.356315   French

使用此数据，现在我可以执行以下代码。但是，它只能显示出来源。我不知道如何填充颜色。

library(ggplot2)
library(ggmap)
library(dplyr)
library(maps)

my_data <- read.csv("data.csv",header=T,as.is=T)
head(my_data)

longitude = my_data$longitude
latitude = my_data$latitude
source = my_data$source
df = data.frame(source,longitude,latitude)

register_google(key="I am using my own google API key")

map <- get_map(location = 'Europe',zoom = 4)
map <- ggmap(map)

map + geom_point(aes(x = longitude,y = latitude,colour = source),df,alpha = 0.3)

如何制作上面的第一张照片？