r - 如何在R中反转ggmap栅格图像的颜色？

Question

我假设Raster package满足了我的需要...我只是想反转光栅图像中的颜色。

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

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

我想反转颜色以获得“雄蕊碳粉”贴图的黑白版本:

Answer 1

这将反转raster返回的get_stamenmap()对象

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)