glimpse(volcano)## Rows: 958
## Columns: 26
## $ volcano_number <dbl> 283001, 355096, 342080, 213004, 321040, 28317…
## $ volcano_name <chr> "Abu", "Acamarachi", "Acatenango", "Acigol-Ne…
## $ primary_volcano_type <chr> "Shield(s)", "Stratovolcano", "Stratovolcano(…
## $ last_eruption_year <chr> "-6850", "Unknown", "1972", "-2080", "950", "…
## $ country <chr> "Japan", "Chile", "Guatemala", "Turkey", "Uni…
## $ region <chr> "Japan, Taiwan, Marianas", "South America", "…
## $ subregion <chr> "Honshu", "Northern Chile, Bolivia and Argent…
## $ latitude <dbl> 34.500, -23.292, 14.501, 38.537, 46.206, 37.6…
## $ longitude <dbl> 131.600, -67.618, -90.876, 34.621, -121.490, …
## $ elevation <dbl> 641, 6023, 3976, 1683, 3742, 1728, 1733, 1250…
## $ tectonic_settings <chr> "Subduction zone / Continental crust (>25 km)…
## $ evidence_category <chr> "Eruption Dated", "Evidence Credible", "Erupt…
## $ major_rock_1 <chr> "Andesite / Basaltic Andesite", "Dacite", "An…
## $ major_rock_2 <chr> "Basalt / Picro-Basalt", "Andesite / Basaltic…
## $ major_rock_3 <chr> "Dacite", " ", " ", "Basalt / Picro-Basalt", …
## $ major_rock_4 <chr> " ", " ", " ", "Andesite / Basaltic Andesite"…
## $ major_rock_5 <chr> " ", " ", " ", " ", " ", " ", " ", " ", " ", …
## $ minor_rock_1 <chr> " ", " ", "Basalt / Picro-Basalt", " ", "Daci…
## $ minor_rock_2 <chr> " ", " ", " ", " ", " ", "Basalt / Picro-Basa…
## $ minor_rock_3 <chr> " ", " ", " ", " ", " ", " ", " ", "Andesite …
## $ minor_rock_4 <chr> " ", " ", " ", " ", " ", " ", " ", " ", " ", …
## $ minor_rock_5 <chr> " ", " ", " ", " ", " ", " ", " ", " ", " ", …
## $ population_within_5_km <dbl> 3597, 0, 4329, 127863, 0, 428, 101, 51, 0, 98…
## $ population_within_10_km <dbl> 9594, 7, 60730, 127863, 70, 3936, 485, 6042, …
## $ population_within_30_km <dbl> 117805, 294, 1042836, 218469, 4019, 717078, 1…
## $ population_within_100_km <dbl> 4071152, 9092, 7634778, 2253483, 393303, 5024…# Import volcano data
volcano <- read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/main/data/2020/2020-05-12/volcano.csv")
# View the data
volcano## # A tibble: 958 × 26
## volcano_number volcano_name primary_volcano_type last_eruption_year country
## <dbl> <chr> <chr> <chr> <chr>
## 1 283001 Abu Shield(s) -6850 Japan
## 2 355096 Acamarachi Stratovolcano Unknown Chile
## 3 342080 Acatenango Stratovolcano(es) 1972 Guatem…
## 4 213004 Acigol-Nevseh… Caldera -2080 Turkey
## 5 321040 Adams Stratovolcano 950 United…
## 6 283170 Adatarayama Stratovolcano(es) 1996 Japan
## 7 221170 Adwa Stratovolcano Unknown Ethiop…
## 8 221110 Afdera Stratovolcano Unknown Ethiop…
## 9 284160 Agrigan Stratovolcano 1917 United…
## 10 342100 Agua Stratovolcano Unknown Guatem…
## # ℹ 948 more rows
## # ℹ 21 more variables: region <chr>, subregion <chr>, latitude <dbl>,
## # longitude <dbl>, elevation <dbl>, tectonic_settings <chr>,
## # evidence_category <chr>, major_rock_1 <chr>, major_rock_2 <chr>,
## # major_rock_3 <chr>, major_rock_4 <chr>, major_rock_5 <chr>,
## # minor_rock_1 <chr>, minor_rock_2 <chr>, minor_rock_3 <chr>,
## # minor_rock_4 <chr>, minor_rock_5 <chr>, population_within_5_km <dbl>, …# Volcanoes higher than 3000 meters
filter(volcano, elevation > 3000)## # A tibble: 175 × 26
## volcano_number volcano_name primary_volcano_type last_eruption_year country
## <dbl> <chr> <chr> <chr> <chr>
## 1 355096 Acamarachi Stratovolcano Unknown Chile
## 2 342080 Acatenango Stratovolcano(es) 1972 Guatem…
## 3 321040 Adams Stratovolcano 950 United…
## 4 342100 Agua Stratovolcano Unknown Guatem…
## 5 352031 Aliso Stratovolcano -2450 Ecuador
## 6 342040 Almolonga Stratovolcano 1818 Guatem…
## 7 354004 Andahua-Orcop… Pyroclastic cone(s) 1490 Peru
## 8 352030 Antisana Stratovolcano 1802 Ecuador
## 9 355180 Antofagasta V… Pyroclastic cone(s) Unknown Argent…
## 10 355160 Aracar Stratovolcano Unknown Argent…
## # ℹ 165 more rows
## # ℹ 21 more variables: region <chr>, subregion <chr>, latitude <dbl>,
## # longitude <dbl>, elevation <dbl>, tectonic_settings <chr>,
## # evidence_category <chr>, major_rock_1 <chr>, major_rock_2 <chr>,
## # major_rock_3 <chr>, major_rock_4 <chr>, major_rock_5 <chr>,
## # minor_rock_1 <chr>, minor_rock_2 <chr>, minor_rock_3 <chr>,
## # minor_rock_4 <chr>, minor_rock_5 <chr>, population_within_5_km <dbl>, …
## Arrange rows
``` r
# Arrange volcanoes from highest to lowest
arrange(volcano, desc(elevation))## # A tibble: 958 × 26
## volcano_number volcano_name primary_volcano_type last_eruption_year country
## <dbl> <chr> <chr> <chr> <chr>
## 1 355130 Ojos del Sala… Stratovolcano 750 Chile-…
## 2 355012 Parinacota Stratovolcano 290 Chile-…
## 3 355107 Pular Stratovolcano(es) Unknown Chile
## 4 355070 San Pedro-San… Stratovolcano(es) 1960 Chile
## 5 355160 Aracar Stratovolcano Unknown Argent…
## 6 357020 San Jose Stratovolcano(es) 1960 Chile-…
## 7 354007 Chachani, Nev… Stratovolcano Unknown Peru
## 8 355096 Acamarachi Stratovolcano Unknown Chile
## 9 355010 Tacora Stratovolcano(es) Unknown Chile-…
## 10 355091 Sairecabur Stratovolcano(es) Unknown Chile-…
## # ℹ 948 more rows
## # ℹ 21 more variables: region <chr>, subregion <chr>, latitude <dbl>,
## # longitude <dbl>, elevation <dbl>, tectonic_settings <chr>,
## # evidence_category <chr>, major_rock_1 <chr>, major_rock_2 <chr>,
## # major_rock_3 <chr>, major_rock_4 <chr>, major_rock_5 <chr>,
## # minor_rock_1 <chr>, minor_rock_2 <chr>, minor_rock_3 <chr>,
## # minor_rock_4 <chr>, minor_rock_5 <chr>, population_within_5_km <dbl>, …
## Select columns
``` r
# Select volcano name, elevation, and type
select(volcano, volcano_name, elevation, primary_volcano_type)## # A tibble: 958 × 3
## volcano_name elevation primary_volcano_type
## <chr> <dbl> <chr>
## 1 Abu 641 Shield(s)
## 2 Acamarachi 6023 Stratovolcano
## 3 Acatenango 3976 Stratovolcano(es)
## 4 Acigol-Nevsehir 1683 Caldera
## 5 Adams 3742 Stratovolcano
## 6 Adatarayama 1728 Stratovolcano(es)
## 7 Adwa 1733 Stratovolcano
## 8 Afdera 1250 Stratovolcano
## 9 Agrigan 965 Stratovolcano
## 10 Agua 3760 Stratovolcano
## # ℹ 948 more rows
## Add columns
``` r
# Add elevation in kilometers
mutate(volcano, elevation_km = elevation / 1000)## # A tibble: 958 × 27
## volcano_number volcano_name primary_volcano_type last_eruption_year country
## <dbl> <chr> <chr> <chr> <chr>
## 1 283001 Abu Shield(s) -6850 Japan
## 2 355096 Acamarachi Stratovolcano Unknown Chile
## 3 342080 Acatenango Stratovolcano(es) 1972 Guatem…
## 4 213004 Acigol-Nevseh… Caldera -2080 Turkey
## 5 321040 Adams Stratovolcano 950 United…
## 6 283170 Adatarayama Stratovolcano(es) 1996 Japan
## 7 221170 Adwa Stratovolcano Unknown Ethiop…
## 8 221110 Afdera Stratovolcano Unknown Ethiop…
## 9 284160 Agrigan Stratovolcano 1917 United…
## 10 342100 Agua Stratovolcano Unknown Guatem…
## # ℹ 948 more rows
## # ℹ 22 more variables: region <chr>, subregion <chr>, latitude <dbl>,
## # longitude <dbl>, elevation <dbl>, tectonic_settings <chr>,
## # evidence_category <chr>, major_rock_1 <chr>, major_rock_2 <chr>,
## # major_rock_3 <chr>, major_rock_4 <chr>, major_rock_5 <chr>,
## # minor_rock_1 <chr>, minor_rock_2 <chr>, minor_rock_3 <chr>,
## # minor_rock_4 <chr>, minor_rock_5 <chr>, population_within_5_km <dbl>, …
## Summarize by groups
``` r
# Calculate average elevation for each volcano type
volcano %>%
group_by(primary_volcano_type) %>%
summarize(
average_elevation = mean(elevation, na.rm = TRUE),
number_of_volcanoes = n()
) %>%
arrange(desc(average_elevation))## # A tibble: 26 × 3
## primary_volcano_type average_elevation number_of_volcanoes
## <chr> <dbl> <int>
## 1 Lava cone(s) 3290 1
## 2 Lava dome 3231 3
## 3 Lava cone(es) 3109 1
## 4 Compound 2687. 9
## 5 Stratovolcano(es) 2310. 107
## 6 Stratovolcano 2206. 353
## 7 Pyroclastic shield 2156. 7
## 8 Pyroclastic cone 2101. 4
## 9 Complex 2066. 46
## 10 Lava cone 1855 1
## # ℹ 16 more rows```