library(tmap)
tm = tm_shape(World) +
  tm_polygons() 

tm +
  tm_graticules(labels.show = FALSE) +
  tm_crs("+proj=ortho +lat_0=0 +lon_0=100", bbox = "FULL")+
  tm_layout(bg.color = "lightblue",
            earth_boundary = TRUE,
            frame = FALSE)
#> Error in valid_numeric_matrix(x): is.numeric(x) is not TRUE