2
$\begingroup$

Is there a more efficient way to include Alaska and Hawaii on a compact US map than the combination of the three GeoGraphics with Insets shown below?

ak = GeoGraphics[
   {EdgeForm[Black], FaceForm[Red],
    Polygon[ Entity["AdministrativeDivision", {"Alaska", "UnitedStates"}]]},
   GeoRange -> {{50, 72}, {-180, -125}}, GeoBackground -> None];
hi = GeoGraphics[
   {EdgeForm[Black], FaceForm[Green],
    Polygon[Entity["AdministrativeDivision", {"Hawaii", "UnitedStates"}]]},
   GeoRange -> {{18, 23}, {-162, -153}}, GeoBackground -> None];
Show[
 GeoGraphics[
  {EdgeForm[Black], FaceForm[Red],
   Polygon[Entity["AdministrativeDivision", {"Illinois", "UnitedStates"}]],
   Polygon[Entity["AdministrativeDivision", {"NewJersey", "UnitedStates"}]]
   }, GeoRange -> Entity["Country", "UnitedStates"]
  ], Epilog -> {Inset[ak, {-0.5, -0.18}, {-0.25, -0.2}, 0.25],
   Inset[hi, {-0.45, -0.25}, {Left, Bottom}, 0.2]}]

Compact map of USA with Alaska and Hawaii nestled under California

$\endgroup$
  • 1
    $\begingroup$ Unfortunate, Inset is the best answer to your question yet. Maybe an improvement could be placing it automatically using GeoDestination + GeoDisplacement instead of writing yourself the coordinates for the Inset. $\endgroup$ – FJRA Nov 27 '14 at 15:33
  • $\begingroup$ Thank you for the confirmation. It has been working reasonably well for me. $\endgroup$ – Stephen Wilkus Jan 8 '15 at 16:16
  • 1
    $\begingroup$ wolfram.com/xid/0tz1mkz2-6fdg7a $\endgroup$ – Chip Hurst Aug 3 '15 at 14:15

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Browse other questions tagged or ask your own question.