GGMap

Plotting points on Map
library(devtools) library(ggmap) library(ggplot2) library(mapproj) library(googleway) register_google(key = "AIzaSyB4-nS_QSaDK_FmQ6-CGfMHctPzofJRCpQ") ggmap:::register_google(key="AIzaSyB4-nS_QSaDK_FmQ6-CGfMHctPzofJRCpQ") has_google_key p = ggmap(    ggmap = get_map( "Europe", zoom = 3, scale = "auto", maptype = "satellite", source = "google"),    extent = "device",    legend = "topright"  ) ####################  p = p + geom_point(data = Groups, aes(LON, LAT, color = MAX), size = 1.5) + scale_x_continuous(limits = c(-25.0, 50.00), expand = c(0, 0)) + scale_y_continuous(limits = c(30.00, 70.0), expand = c(0, 0)) + labs(title="PCA-Groups SLP") + scale_color_manual(name = "PC",                       values = c ("PC1" = "yellow", "PC2" = "darkorange", "PC3" = "red", "PC4" = "magenta", "PC5" = "cyan", "PC6" = "green", "PC7" = "grey80", "PC8" = "steelblue", "PC9" = "forestgreen"))

Plotting points by group and different shape
p = p + geom_point(data = Stationsmean, aes(LON, LAT, color = MeanGroup, shape = Höhe > 700), size = 1.5) + scale_x_continuous(limits = c(-15.0, 32.00), expand = c(0, 0)) + scale_y_continuous(limits = c(34.00, 70.0), expand = c(0, 0)) + scale_shape_manual(name = "Altitude", values = c(19, 17), labels = c("<700m", ">700m")) + scale_color_manual(name = "Mean [µg/m3]",                     values = c("10-20" = "#4000ff", "20-30" = "#00bfff", "30-40" = "#00ffbf", "40-50" = "#04B431", "50-60" = "#40ff00", "60-70" = "#ffff00", "70-80" = "#ff8000", "80-90" = "#ff0000", "90-100" = "#FF0040", "100-110" = "#ff00ff"))

Plot Clusters
library(ggmap) Europe <- get_map(location = "Europe", zoom = 3) p = ggmap(Europe) p = p + geom_point(data = Cluster, aes(LON, LAT, color = Cluster.Nummer), size = 1.5) + scale_x_continuous(limits = c(-11.0, 32.00), expand = c(0, 0)) + scale_y_continuous(limits = c(36.00, 70.5), expand = c(0, 0)) + scale_color_manual(name = "Cluster",                     values = c ("Cluster 1" = "yellow", "Cluster 2" = "orange", "Cluster 3" = "red", "Cluster 4" = "purple", "Cluster 5" = "blue", "Cluster 6" = "darkgreen", "Cluster 7" = "brown"))