如何在 R 中反转 ggmap 光栅图像的颜色？

Question

我假设 Raster package 有我需要的东西...我只是想反转光栅图像中的颜色。

实际情况是这样的：我想反转 ggmap 调用返回的光栅图像：

 library(ggmap)
 ggmap(get_stamenmap(maptype = "toner"))

我想反转颜色以获得 Stamen Toner 贴图的黑白版本：

Answer 1

这会反转 get_stamenmap()

返回的 raster 对象

library("ggmap")
m <- get_stamenmap(maptype = "toner")

# invert colors in raster
invert <- function(x) rgb(t(255-col2rgb(x))/255)    
m_inv <- as.raster(apply(m, 2, invert))

# copy attributes from original object
class(m_inv) <- class(m)
attr(m_inv, "bb") <- attr(m, "bb")

ggmap(m_inv)