Skip to content

Latest commit

 

History

History
55 lines (40 loc) · 1.33 KB

File metadata and controls

55 lines (40 loc) · 1.33 KB

mountainsdata

The goal of mountainsdata is to provide easy access to data on mountains by elevation. The data is scraped from Wikipedia. The two data frames can be joined by “id”.

Installation

You can install the development version of mountainsdata from GitHub with:

# install.packages("devtools")
devtools::install_github("mathiselling/mountainsdata")

Example

This is a basic example which shows you how to solve a common problem:

library(mountainsdata)
library(tidyverse)

# Check geocoding results

df_mountains_geo <- mountains %>% 
  inner_join(coordinates, by = join_by(id)) %>% 
  mutate(
    mountain_and_country = paste(mountain, country, sep = " in ")
  )

check_geo_results <- function() {
  df_mountains_geo %>%
    slice_sample(n = 1) %>%
    { ggplot(data = ., aes(x = long, y = lat)) +
        borders() +
        coord_fixed(ratio = 1.1) +
        geom_point(color = "blue", size = 2) +
        labs(title = .$mountain_and_country) +
        theme_minimal()
    }
}

check_geo_results()