如何在水平圖上添加徽標？

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

您可以使用magick包來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)