Show different annotations

Show them and then remove from most plots.

```
  annotation_north_arrow(location = "tl", which_north = "true") +
  annotation_scale(location = "br", unit_category = "metric")

 +
  annotation_north_arrow(location = "tr", which_north = "true", 
                         style = north_arrow_nautical) +
  annotation_scale(location = "br", unit_category = "metric")
```