6
$\begingroup$

I have the following code to create a Bonne projection of the Earth: 

GeoGraphics[
 {
  {FaceForm[Red], EdgeForm[White], CountryData["Countries", "SchematicPolygon"]},
 },
 GeoRange -> "World",
 GeoProjection -> {"Bonne", {"Centering" -> {0, 0}, "ReferenceModel" -> 1, "StandardParallels" -> {85}}},
 GeoGridLines -> Automatic,
 GeoGridLinesStyle -> Directive[Thin, Red],
 GeoBackground -> None
]

I like the image this creates, except for the fact that the GeoGridLines appear running over the continents. Is there a way to make the GeoGridLines appear behind the land? I'm imagining something like this shirt design: https://cdn.shopify.com/s/files/1/2292/2165/products/mockup-b1b3f8b5_1024x1024.jpg?v=1504446466

Improve this question
$\endgroup$
5
  • $\begingroup$ What about using {GeoStyling[FaceForm[Red], EdgeForm[White]], CountryData["Countries", "SchematicPolygon"]} as first argument of GeoGraphics? $\endgroup$
    – jose
    Commented Nov 17, 2017 at 7:37
  • $\begingroup$ The point is that the geo grid lines will also be visible even if they are behind the polygons, because the polygons are semi-transparent by default. With GeoStyling we make them opaque, and if they are of the same color of the geo grid lines, then the latter are not visible. $\endgroup$
    – jose
    Commented Nov 17, 2017 at 7:42
  • $\begingroup$ This solutions works pretty well for me, but there are several countries I was intending to highlight by making them a darker shade of pink/red. So with this solution, I end up the the GeoGridLines either visible on the highlighted or not-highlighted countries (depending on which color I choose the GeoGridLines to match). Do you know of a method to make the GeoGridLines invisible when passing over a country, independent of the colors involved? $\endgroup$
    – sferics
    Commented Nov 17, 2017 at 10:19
  • $\begingroup$ You can try to always have the same color and opacity values for the world polygon and the geo grid lines. And then you use a different color and higher opacity for the countries you want to highlight. $\endgroup$
    – jose
    Commented Nov 17, 2017 at 14:48
  • $\begingroup$ How to I control the opacity values for the world polygon and gridlines? I've tried what seems obvious to me to no effect... $\endgroup$
    – sferics
    Commented Nov 17, 2017 at 19:07

2 Answers 2

Reset to default
4
$\begingroup$

Probably not the best way, but one way is to make the gridlines and "map" parts in two separate GeoGraphics and combine them with Show:

lines = GeoGraphics[
  {},
  GeoRange -> "World", 
  GeoProjection -> {"Bonne", {"Centering" -> {0, 0}, 
     "ReferenceModel" -> 1, "StandardParallels" -> {85}}}, 
  GeoGridLines -> Automatic,
  GeoGridLinesStyle -> Directive[Thin, Red],
  GeoBackground -> None
  ]

Lines only

countries = CountryData["Countries", "Name"]; (*master list of countries*)
highlighted = {"China", "Algeria"}; (*list of countries to be highlighted*)
coloring[country_] := 
  Lighter[Red, If[MemberQ[highlighted, country], 0.4, 0.8]]; (*how to color them*)

countrymap = GeoGraphics[
  {
   {GeoStyling[FaceForm[coloring[#]], EdgeForm[White]], 
      CountryData[#, "SchematicPolygon"]} & /@ countries
   },
  GeoRange -> "World", 
  GeoProjection -> {"Bonne", {"Centering" -> {0, 0}, 
     "ReferenceModel" -> 1, "StandardParallels" -> {85}}}, 
  GeoBackground -> None
  ]

Countries only

Putting them together:

Show[
 Graphics @@ lines,
 Graphics @@ countrymap,
 ImageSize -> {500, Automatic} (*Just to make it a bit bigger for my own eyes*)
 ]

Final product

Not an expert at this, so please feel free to correct any mistakes/bad practices/etc. Anyway, hopefully this is (at least somewhat) helpful!

Improve this answer
$\endgroup$
1
  • 1
    $\begingroup$ Great, thank you! I tried something similar earlier, but couldn't get Show to cooperate (didn't know I had to pass the GeoGraphic output into Graphics before putting it into Show). $\endgroup$
    – sferics
    Commented Nov 18, 2017 at 17:54
2
$\begingroup$

What about something like this? I think that if the countries have to be semi-transparent, so that some of them are highlighted, then that semi-transparency will let the geo grid lines be visible...

GeoGraphics[{GeoStyling[Red, Opacity[0.5], EdgeForm[White]], CountryData["Countries", "SchematicPolygon"], GeoStyling[Red], Polygon[Entity["Country", "Canada"]], Polygon[Entity["Country", "France"]]}, GeoRange -> "World", GeoProjection -> {"Bonne", {"Centering" -> {0, 0}, "ReferenceModel" -> 1, "StandardParallels" -> {85}}}, GeoGridLines -> Automatic, GeoGridLinesStyle -> Directive[Opacity[0.15], Red], GeoBackground -> None]

enter image description here

Improve this answer
$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.