如何在levelplot上添加logo？

Question

我想用levelplot从光栅数据中绘制一张图。如何添加包含logo.png和标题的标题，如图所示？

这是我的数据：SST

下面是我生成此地图的基本代码：

r<-crop(raster(flname, varname="sst"), extent(90, 144, -20, 25))

png('SST.png', height = 2000, width = 2500, res = 300)
print(levelplot(r, col.regions = sst, at=seq(20, 34, 0.1),
              yscale.components=yscale.raster.subticks,
              xscale.components=xscale.raster.subticks,
              margin=FALSE, ylab='Latitude', xlab='Longitude', 
              main=paste0(flname,' (deg-C)')))
dev.off()

​

​

Answer 1

您可以使用package magick来合成图像：

library(rasterVis)
library(magick)
header <- image_read("~/Desktop/headerWithLogo.png")
fig <- image_graph(width = 600, height = 600, res=96)
f <- system.file("external/test.grd", package="raster")
r <- raster(f)
levelplot(r, margin=F, main ="Test \n")
dev.off()
out <- image_composite(fig, header, offset = "+50-5")
print(out)

​

​