data-raw/old/aseg_add_labels.R

In LCBC-UiO/ggseg3d: Tri-Surface Mesh Plots for Brain Atlases

aseg_labs <- data.frame(
  label = c(
  "Left-Lateral-Ventricle",
  "Left-Thalamus-Proper",
  "Left-Caudate",
  "Left-Putamen",
  "Left-Pallidum",
  "Left-Hippocampus",
  "Left-Amygdala",
  "Left-VentralDC",
  "Right-Lateral-Ventricle",
  "Right-Thalamus-Proper",
  "Right-Caudate",
  "Right-Putamen",
  "Right-Pallidum",
  "Right-Hippocampus",
  "Right-Amygdala",
  "Right-VentralDC"),
  area =  c(
    "lateral ventricle",
    "thalamus proper",
    "caudate",
    "putamen",
    "pallidum",
    "hippocampus",
    "amygdala",
    "ventral DC",
    "lateral ventricle",
    "thalamus proper",
    "caudate",
    "putamen",
    "pallidum",
    "hippocampus",
    "amygdala",
    "ventral DC")
)

aseg <- aseg %>%
  left_join(aseg_labs) %>%
  as_ggseg_atlas() %>%
  select(-group, -piece)

aseg <- aseg %>%
  filter(!(grepl("right", hemi) & grepl("Left", label))) %>%
  filter(!(grepl("left", hemi) & grepl("Right", label)))

usethis::use_data(aseg, internal = FALSE, overwrite = TRUE)