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

Question

我假设Raster包有我需要的功能... 我只是想要反转一个栅格图像的颜色。

实际情况是：我想反转由ggmap调用返回的栅格图像。

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

我想反转颜色，以获得 Stamen Toner 地图的白底黑字版本：

- dancow

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)

- rcs