Intro Thoughts
Status Quo
library(tidyverse)
Experiment
library(ggbrat)
library(ggplot2)
yeo <- load_atlas("Yeo2011_7Networks_N1000")
'yeo$atlas |> #<<
mutate(row = row_number()) |>
ggplot() +
geom_sf(layout = "fixed") + #<<
facet_wrap(~region) + #<<
geom_sf(fill = "red") + #<<
theme_void()' |>
ggram::ggram(code = _, title = "Exploring the Yeo brain atlas via ggbrat",
subtitle = "Use `layout = 'fixed'` for reference layer")
## Warning: Removed 10 rows containing missing values or values outside the scale range
## (`geom_hline()`).
library(ggregions)
set_regions(yeo$atlas)