3
$\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

Improve this question
$\endgroup$
3
  • 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, 2014 at 15:33
  • $\begingroup$ Thank you for the confirmation. It has been working reasonably well for me. $\endgroup$
    – Stephen Wilkus
    Jan 8, 2015 at 16:16
  • 1
    $\begingroup$ wolfram.com/xid/0tz1mkz2-6fdg7a $\endgroup$
    – Greg Hurst
    Aug 3, 2015 at 14:15

0

Reset to default

Your Answer

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

Browse other questions tagged or ask your own question.