acstrahl

walkerke

library(mapgl)

mapboxgl(
  style = mapbox_style("streets"),
  center = c(-87.61694, 41.86625),
  zoom = 15.99,
  pitch = 40,
  bearing = 20,
  antialias = TRUE
) |>

walkerke

library(mapgl)

maplibre(
  style = maptiler_style("bright"),
  center = c(-118.705, 34.027),
  zoom = 10
) |> 
  add_symbol_layer(
    id = "trailheads",
    source = list(

walkerke

library(mapgl)

mapboxgl(
  style = mapbox_style("satellite"),
  center = c(-122.514426, 37.562984),
  zoom = 17,
  bearing = -96,
  minZoom = 14
) |> 
  add_video_source(

walkerke

library(tigris)
# remotes::install_github("walkerke/mapgl")
library(mapgl) 
options(tigris_use_cache = TRUE)

tarrant = tracts("TX", "Tarrant", cb = TRUE)

mapboxgl(style = mapbox_style("light")) |> 
  add_fill_extrusion_layer(
    id = "tracts",

han-tun

license: mit

walkerke

library(tidycensus)
library(tigris)
library(tidyverse)
library(sf)
library(ggiraph)
library(patchwork)
options(tigris_use_cache = TRUE)
set.seed(123456)

# Get a list of counties within the Austin CBSA using tigris

marcosci

# load libraries
library(tidyverse)
library(osmdata)
library(sf)
library(ggtext)
library(exactextractr)
library(fasterize)
library(ggtext)
library(tidygeocoder)
library(glue)

walkerke

library(tidycensus)
library(tidyverse)
options(tigris_use_cache = TRUE)

state_names <- c(state.name, "District of Columbia")
names(state_names) <- state_names

tictoc::tic()
age_maps <- map(state_names, ~{
  

AlbertRapp

library(tidyverse)
color_palette <- thematic::okabe_ito(8)
flights <- nycflights13::flights

counts <- flights %>% 
  mutate(
    date = lubridate::make_date(year = year, month = month, day = day)
  ) %>% 
  count(date) %>% 
  mutate(