Import data

data <- readr::read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/main/data/2020/2020-05-12/volcano.csv")
## Rows: 958 Columns: 26
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (18): volcano_name, primary_volcano_type, last_eruption_year, country, r...
## dbl  (8): volcano_number, latitude, longitude, elevation, population_within_...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
data
## # 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>, …

Plot data

 data %>%
  ggplot(aes(x = primary_volcano_type, y = elevation)) +
  geom_boxplot() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))