使用ggmap设置背景地图的不透明度

Question

使用ggmap和ggplot以及以下代码...（不可重复，但不一定要了解问题）。

map <- get_googlemap(center = c(lon = 10.64, lat = 50.56), maptype = "terrain", source = "google", zoom = 6, language = "de-DE", color = "bw")

ggmap(map) + 
  geom_point(data = frage_3_daten, aes(x = lng_google, y = lat_google, colour = pronunciation_id), alpha = 0.2) + 
  scale_colour_hue(name = "Aussprache", labels = c("Krampus", "Grittibänz")) +
  ggtitle("Gebäck in Form einer menschlichen Gestalt") +
  xlab("Länge") + ylab("Breite") +
  theme_srf()

我可以在讲德语的欧洲之上制作这张美丽的点图。

现在：我唯一的（也是希望简单的）问题是：如何降低背景图层的不透明度，使点变得更重要？

我管理了以下内容＆＃34; hack＆＃34;设置darken参数：ggmap(map, darken = c(0.6, "white"))。

这几乎解决了我的问题，但也许实际上有一个（隐藏的）选项可以全局降低第一个地图图层（或更一般地说，图中任何图层）的不透明度。

Answer 1

如果您不想调整darken参数，并且您不想深入了解Google地图的自定义样式，则可以修改{{1}直接对象。

ggmap本质上是一个字符矩阵，其中每个单元格是一个十六进制代码，用于在那里再现颜色。 （有一些额外的属性可以描述ggmap左下角和右上角的经度和纬度（在EPSG：4326坐标参照系中），以及源和缩放级别。）

您可以使用基础ggmap中的adjustcolor()函数获取颜色（作为十六进制代码，整数或字符串 - R函数将接受的任何内容）并向上或向下拨打红色，绿色，蓝色和alpha通道。 alpha通道控制透明度，其中1是完全不透明的，0是完全透明的。

这是一个可重现的例子......

首先，获取col2rgb()包附带的meuse数据。

sp

将数据帧转换为data(meuse) 对象，为其指定正确的坐标参考系统（我发现here），然后将其坐标参考系统转换为经度/纬度

sp

使用所有点的近似中心获取Google基本地图。我使用与您相同的其他参数，但将变焦设置得更高，因为这些点彼此非常接近。

coordinates(meuse) = ~x+y
proj4string(meuse) <- "+init=epsg:28992 +proj=sterea +lat_0=52.15616055555555 +lon_0=5.38763888888889 +k=0.9999079 +x_0=155000 +y_0=463000 +ellps=bessel +towgs84=565.4171,50.3319,465.5524,-0.398957388243134,0.343987817378283,-1.87740163998045,4.0725 +units=m +no_defs"
meuse <- spTransform(meuse, CRS("+init=epsg:4326"))

我在这里修改meuse_basemap <- get_map(location = colMeans(coordinates(meuse)), maptype = "terrain", source = "google", zoom = 13, language = "de-DE", color = "bw") 以使其透明。我将属性保存为对象，以便我可以将相同的属性重新分配给更透明的ggmap。我无法找到一种方法来修改ggmap的值，而不会删除ggmap属性（这意味着修改后的ggmap无法使用ggmap函数。）

ggmap()

创建一个与Google底图尺寸相同的矩阵，但每个单元格中的所有颜色十六进制代码都调整为透明度的一半。

meuse_basemap_attributes <- attributes(meuse_basemap)

将保存的属性分配给修改后的矩阵，将其重新设置为可用的meuse_basemap_transparent <- matrix(adjustcolor(meuse_basemap, alpha.f = 0.5), nrow = nrow(meuse_basemap)) 。

ggmap

这是原始情节：

attributes(meuse_basemap_transparent) <- meuse_basemap_attributes

这是更透明的一个！

ggmap(meuse_basemap) +
  geom_point(data = as.data.frame(meuse), 
             aes(x = x, y = y, color = dist), 
             cex = 2)