library(tmap)

tm_shape(World, 
         bbox = "FULL",
         crs = "+proj=ortho +lat_0=30 +lon_0=0") +
  tm_polygons() +
  tm_graticules()

tm_shape(World, 
         bbox = "FULL") +
  tm_polygons() +
  tm_graticules() +
  tm_crs("+proj=ortho +lat_0=30 +lon_0=0")
#> [tip] Consider a suitable map projection, e.g. by adding `+ tm_crs("auto")`.
#> This message is displayed once per session.