Import data
# excel file
data <- read_excel("../00_data/myData.xlsx")
data
## # A tibble: 21,560 × 12
## year gnis_id geometry metad…¹ numbe…² parkn…³ region state unit_…⁴ unit_…⁵
## <dbl> <dbl> <chr> <chr> <dbl> <chr> <chr> <chr> <chr> <chr>
## 1 1904 1163670 POLYGON NA 1 Crater… PW OR CRLA Crater…
## 2 1941 1531834 MULTIPOLY… NA 1 Lake R… PW WA LARO Lake R…
## 3 1961 2055170 MULTIPOLY… NA 1 Lewis … PW WA LEWI Lewis …
## 4 1935 1530459 MULTIPOLY… NA 1 Olympic PW WA OLYM Olympi…
## 5 1982 277263 POLYGON NA 1 Santa … PW CA SAMO Santa …
## 6 1919 578853 MULTIPOLY… NA 1 NA NE ME ACAD Acadia…
## 7 1969 1329499 MULTIPOLY… NA 1 NA IM TX AMIS Amista…
## 8 1967 589056 POLYGON NA 1 NA NE MD ASIS Assate…
## 9 1944 1377082 POLYGON NA 1 NA IM TX BIBE Big Be…
## 10 1989 302659 POLYGON NA 1 NA SE FL BICY Big Cy…
## # … with 21,550 more rows, 2 more variables: unit_type <chr>, visitors <dbl>,
## # and abbreviated variable names ¹metadata, ²number_of_records, ³parkname,
## # ⁴unit_code, ⁵unit_name
Filter
filter(data, year == 1950)
## # A tibble: 141 × 12
## year gnis_id geometry metad…¹ numbe…² parkn…³ region state unit_…⁴ unit_…⁵
## <dbl> <dbl> <chr> <chr> <dbl> <chr> <chr> <chr> <chr> <chr>
## 1 1950 1101907 POLYGON http:/… 1 Chicka… IM OK CHIC Chicka…
## 2 1950 456249 MULTIPOLY… http:/… 1 Effigy… MW IA EFMO Effigy…
## 3 1950 294586 POLYGON http:/… 1 De Soto SE FL DESO De Sot…
## 4 1950 1163670 POLYGON NA 1 Crater… PW OR CRLA Crater…
## 5 1950 1531834 MULTIPOLY… NA 1 Lake R… PW WA LARO Lake R…
## 6 1950 1530459 MULTIPOLY… NA 1 Olympic PW WA OLYM Olympi…
## 7 1950 578853 MULTIPOLY… NA 1 NA NE ME ACAD Acadia…
## 8 1950 1377082 POLYGON NA 1 NA IM TX BIBE Big Be…
## 9 1950 1009494 MULTIPOLY… NA 1 NA NT NC BLRI Blue R…
## 10 1950 330990 MULTIPOLY… NA 1 NA SE GA CHCH Chicka…
## # … with 131 more rows, 2 more variables: unit_type <chr>, visitors <dbl>, and
## # abbreviated variable names ¹metadata, ²number_of_records, ³parkname,
## # ⁴unit_code, ⁵unit_name
Arrange
arrange(data, visitors)
## # A tibble: 21,560 × 12
## year gnis_id geometry metad…¹ numbe…² parkn…³ region state unit_…⁴ unit_…⁵
## <dbl> <dbl> <chr> <chr> <dbl> <chr> <chr> <chr> <chr> <chr>
## 1 1941 1531834 MULTIPOLY… NA 1 Lake R… PW WA LARO Lake R…
## 2 1991 588388 MULTIPOLY… http:/… 1 Monoca… NC MD MONO Monoca…
## 3 1941 1222505 MULTIPOLY… http:/… 1 Fort S… SE SC FOSU Fort S…
## 4 1941 1888929 MULTIPOLY… http:/… 1 Home o… NE NY HOFR Home o…
## 5 1941 314290 MULTIPOLY… http:/… 1 Fort F… SE GA FOFR Fort F…
## 6 1941 718402 POLYGON http:/… 1 George… MW MO GWCA George…
## 7 1941 530557 POLYGON http:/… 1 Thomas… NC DC JEFM Thomas…
## 8 1941 765817 MULTIPOLY… http:/… 1 Jeffer… MW MO JEFF Jeffer…
## 9 1941 1033824 MULTIPOLY… http:/… 1 Theodo… MW ND THRO Theodo…
## 10 1941 1534055 MULTIPOLY… NA 1 San Ju… PW WA SAJH San Ju…
## # … with 21,550 more rows, 2 more variables: unit_type <chr>, visitors <dbl>,
## # and abbreviated variable names ¹metadata, ²number_of_records, ³parkname,
## # ⁴unit_code, ⁵unit_name
Select
select(data, year, parkname, region, visitors)
## # A tibble: 21,560 × 4
## year parkname region visitors
## <dbl> <chr> <chr> <dbl>
## 1 1904 Crater Lake PW 1500
## 2 1941 Lake Roosevelt PW 0
## 3 1961 Lewis and Clark PW 69000
## 4 1935 Olympic PW 2200
## 5 1982 Santa Monica Mountains PW 468144
## 6 1919 NA NE 64000
## 7 1969 NA IM 448000
## 8 1967 NA NE 738700
## 9 1944 NA IM 1409
## 10 1989 NA SE 81157
## # … with 21,550 more rows
Add a new column
mutate(data,
total = year + visitors) %>%
# Select year, month, day, and gain
select(year, parkname, visitors, total)
## # A tibble: 21,560 × 4
## year parkname visitors total
## <dbl> <chr> <dbl> <dbl>
## 1 1904 Crater Lake 1500 3404
## 2 1941 Lake Roosevelt 0 1941
## 3 1961 Lewis and Clark 69000 70961
## 4 1935 Olympic 2200 4135
## 5 1982 Santa Monica Mountains 468144 470126
## 6 1919 NA 64000 65919
## 7 1969 NA 448000 449969
## 8 1967 NA 738700 740667
## 9 1944 NA 1409 3353
## 10 1989 NA 81157 83146
## # … with 21,550 more rows
Summarize
data %>%
# Group by region
group_by(region)
## # A tibble: 21,560 × 12
## # Groups: region [8]
## year gnis_id geometry metad…¹ numbe…² parkn…³ region state unit_…⁴ unit_…⁵
## <dbl> <dbl> <chr> <chr> <dbl> <chr> <chr> <chr> <chr> <chr>
## 1 1904 1163670 POLYGON NA 1 Crater… PW OR CRLA Crater…
## 2 1941 1531834 MULTIPOLY… NA 1 Lake R… PW WA LARO Lake R…
## 3 1961 2055170 MULTIPOLY… NA 1 Lewis … PW WA LEWI Lewis …
## 4 1935 1530459 MULTIPOLY… NA 1 Olympic PW WA OLYM Olympi…
## 5 1982 277263 POLYGON NA 1 Santa … PW CA SAMO Santa …
## 6 1919 578853 MULTIPOLY… NA 1 NA NE ME ACAD Acadia…
## 7 1969 1329499 MULTIPOLY… NA 1 NA IM TX AMIS Amista…
## 8 1967 589056 POLYGON NA 1 NA NE MD ASIS Assate…
## 9 1944 1377082 POLYGON NA 1 NA IM TX BIBE Big Be…
## 10 1989 302659 POLYGON NA 1 NA SE FL BICY Big Cy…
## # … with 21,550 more rows, 2 more variables: unit_type <chr>, visitors <dbl>,
## # and abbreviated variable names ¹metadata, ²number_of_records, ³parkname,
## # ⁴unit_code, ⁵unit_name