0
library(terra)
library(raster)
library(rasterVis)

f <- system.file("external/test.grd", package="raster")
r <- rast(f)
r
rr <- project(x=r,y='epsg:4326')
rr
gplot(rr)+
  geom_raster(aes(fill = value),na.rm=T)+
  scale_fill_distiller(na.value = NA)+
  ggtitle(label = 'Test')+
  coord_sf(crs=4326)+
  theme(axis.title = element_blank(),
        axis.line = element_line(colour='black', linewidth = 3, 
                                 linetype=1),
        axis.line.x.top = element_line(colour='black', linewidth = 1, 
                                       linetype=1),
        axis.line.y.right = element_line(colour='black', linewidth = 1, 
                                         linetype=1),
        plot.title = element_text(hjust = 0.5,size = 20,
                                  face = 'bold',family = 'serif'),
        axis.text = element_text(size=20,face='bold',
                                   family = 'serif',color = 'black'),
        legend.title=element_text(face='bold',family = 'serif',
                                  size = 15),
        legend.text = element_text(size = 15,
                                   face='bold',
                              family='serif'),
        panel.background = element_rect(fill=NA,color = 'black')
  )

enter image description here

I met this situation. I checked these codes many times, but the problem seemed still occured.

And I have tried tidyterra package as well. The same problem.

Ref:https://github.com/oscarperpinan/rastervis/issues/96

jackywang
  • 75
  • 6
  • Can you [reproduce](https://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example) the same issue using sample data? We can't access `external/test.grd`. – jrcalabrese Dec 03 '22 at 15:09
  • @jrcalabrese Maybe you didn't install `raster` package? The test file is in `raster` package. – jackywang Dec 04 '22 at 03:24
  • My fault! I was able to reproduce it after proper installation. – jrcalabrese Dec 04 '22 at 04:55

0 Answers0