Maps

Author

Prof. Eric A. Suess

library(pacman)

p_load(tidyverse, nasaweather)

atmos                          # Atmospheric data.
# A tibble: 41,472 × 11
     lat  long  year month surftemp  temp pressure ozone cloudlow cloudmid
   <dbl> <dbl> <int> <int>    <dbl> <dbl>    <dbl> <dbl>    <dbl>    <dbl>
 1  36.2 -114.  1995     1     273.  272.      835   304      7.5     34.5
 2  33.7 -114.  1995     1     280.  282.      940   304     11.5     32.5
 3  31.2 -114.  1995     1     285.  285.      960   298     16.5     26  
 4  28.7 -114.  1995     1     289.  291.      990   276     20.5     14.5
 5  26.2 -114.  1995     1     292.  293.     1000   274     26       10.5
 6  23.7 -114.  1995     1     294.  294.     1000   264     30        9.5
 7  21.2 -114.  1995     1     295   295.     1000   258     29.5     11  
 8  18.7 -114.  1995     1     298.  297.     1000   252     26.5     17.5
 9  16.2 -114.  1995     1     300.  298.     1000   250     27.5     18.5
10  13.7 -114.  1995     1     300.  299.     1000   250     26       16.5
# ℹ 41,462 more rows
# ℹ 1 more variable: cloudhigh <dbl>
borders <- ungroup(borders)  # Country borders, ungroup fixes a problem 
elev                           # Elevation.
# A tibble: 576 × 3
    long    lat   elev
   <dbl>  <dbl>  <dbl>
 1 -114. -21.2    0   
 2 -114. -18.7    0   
 3 -114. -16.2    0   
 4 -114. -13.7    0   
 5 -114. -11.2    0   
 6 -114.  -8.72   0   
 7 -114.  -6.23   0   
 8 -114.  -3.73   0.19
 9 -114.  -1.23   0.62
10 -114.   1.26 132.  
# ℹ 566 more rows
glaciers                     # Glacier locations
# A tibble: 3,591 × 6
   id          name          lat  long area   country
   <chr>       <chr>       <dbl> <dbl> <chr>  <chr>  
 1 CO1A0101001 RAMIREZ E 4  10.8 -73.6 " NA"  CO     
 2 CO1A0101002 RAMIREZ E 3  10.8 -73.6 " NA"  CO     
 3 CO1A0101003 RAMIREZ E 2  10.8 -73.6 " NA"  CO     
 4 CO1A0101004 RAMIREZ E 1  10.8 -73.6 "0.03" CO     
 5 CO1A0101005 RAMIREZ 5 N  10.8 -73.6 "0.1"  CO     
 6 CO1A0101007 RAMIREZ 3 N  10.8 -73.6 "0.03" CO     
 7 CO1A0101008 RAMIREZ 2 N  10.8 -73.6 "0.04" CO     
 8 CO1A0101009 RAMIREZ 1 N  10.8 -73.6 "0.03" CO     
 9 CO1A0101010 REINA NINA   10.8 -73.6 "0.01" CO     
10 CO1A0101011 REINA 7      10.8 -73.6 " NA"  CO     
# ℹ 3,581 more rows
storms                       # Storm tracks data
# A tibble: 2,747 × 11
   name     year month   day  hour   lat  long pressure  wind type       seasday
   <chr>   <int> <int> <int> <int> <dbl> <dbl>    <int> <int> <chr>        <int>
 1 Allison  1995     6     3     0  17.4 -84.3     1005    30 Tropical …       3
 2 Allison  1995     6     3     6  18.3 -84.9     1004    30 Tropical …       3
 3 Allison  1995     6     3    12  19.3 -85.7     1003    35 Tropical …       3
 4 Allison  1995     6     3    18  20.6 -85.8     1001    40 Tropical …       3
 5 Allison  1995     6     4     0  22   -86        997    50 Tropical …       4
 6 Allison  1995     6     4     6  23.3 -86.3      995    60 Tropical …       4
 7 Allison  1995     6     4    12  24.7 -86.2      987    65 Hurricane        4
 8 Allison  1995     6     4    18  26.2 -86.2      988    65 Hurricane        4
 9 Allison  1995     6     5     0  27.6 -86.1      988    65 Hurricane        5
10 Allison  1995     6     5     6  28.5 -85.6      990    60 Tropical …       5
# ℹ 2,737 more rows
p <- storms  |>  ggplot(aes(y = wind, x = pressure, color = type)) +
  geom_point(alpha = 0.3) 

p