如何在R中反轉ggmap柵格圖像的顏色？

Question

我假設Raster軟件包具有我所需要的...我只是想反轉Raster圖像中的顏色。

實際情況是這樣的：我想反轉由ggmap調用返回的柵格圖像：

 library(ggmap)
 ggmap(get_stamenmap(maptype = "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)