Как добавить логотип на уровень?

Я хочу сделать график из растровых данных, используя 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()

введите здесь описание изображения


r levelplot rastervis
person Eko Susilo    schedule 08.03.2019    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Вы можете использовать пакет 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)

введите здесь описание изображения

person Christopher Stephan    schedule 28.07.2019