如何从R光栅包中以plotRGB格式化轴？

Question

我正在尝试并排绘制两个地块。 一个是我正在使用plotRGB（）的RasterStack。 但是，轴是一团糟-它为纬度和经度绘制了太多的小数位。 我还想更改字体大小和文本方向。

这在plot（）中很简单，但是对于plotRGB我无法弄清楚。

有人可以帮忙吗？

这是代码：

par(mar=c(4,5,4,2), mfrow = c(1, 2))
plotRGB(tayRGB, axes = TRUE, stretch = "lin", main = "RGB")
plot(knr, main = "Kmeans", cex.axis=0.96, col = viridis_pal(option="D")(10))

Answer 1

我可以建议使用功能RStoolbox)::ggRGB代替plotRGB。 这将为您提供ggplot的全部功能，以自定义您的绘图。 一个可重现的示例：

set.seed(123)
R = raster(matrix(runif(400),20,20))
G = raster(matrix(runif(400),20,20))
B = raster(matrix(runif(400),20,20))
tayRGB = brick(list(R,G,B))

library(RStoolbox)
p1 = ggRGB(tayRGB, r=1, g=2, b=3, stretch = 'lin') +
  scale_y_continuous(labels = scales::number_format(accuracy = 0.001)) +
  scale_x_continuous(labels = scales::number_format(accuracy = 0.1)) +
  theme(axis.title.x = element_text(size = 30),
        axis.text.y = element_text(angle = 45))
p1

要与此并排绘制其他图，可以将其重新制作为ggplot。 或者，您可以使用ggplotify :: base2grob将基本R图转换为grob。

p2 = ggplotify::base2grob(~plot(rnorm(100)))
cowplot::plot_grid(p1,p2)