han-tun

han-tun

Sparkline Line = 

// Static line color - use %23 instead of # for Firefox compatibility
VAR LineColor = "%2301B8AA"

// "Date" field used in this example along the X axis
VAR XMinDate = MIN('Table'[Date])
VAR XMaxDate = MAX('Table'[Date])

// Obtain overall min and overall max measure values when evaluated for each date

han-tun

library(mapgl)

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

han-tun

library(mapgl)

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

han-tun

library(mapgl)

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

han-tun

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

han-tun

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

han-tun

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(

han-tun

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