（1）安装包

install.packages("remotes")
remotes::install_github("LCBC-UiO/ggseg", build_vignettes = F)

（2）基本绘图

library(ggseg)
library(dplyr)
ggseg()

image.png

ggseg(atlas=aseg)

image.png

ggseg(position="stacked") +
  theme_void()

image.png

（3）高级绘图

ggseg(mapping=aes(fill=region)) +
  theme_void()

image.png

ggseg(colour="black", size=.7, mapping=aes(fill=region)) +
  theme_void()

image.png

ggseg(mapping=aes(fill=region),
      position = "stacked") +
  scale_fill_brain("dk") +
  theme_void()

image.png

ggseg(atlas="aseg", mapping=aes(fill=region))

image.png