remotes::install_github("jespermaag/gganatogram") library(gganatogram) library(tidyverse) male_system <- hgMale_key %>% filter(type %in% "nervous_system") %>% gganatogram(organism = "human", sex = "male", fill = "colour", outline = FALSE) + theme_void() + coord_fixed() ggplotly(male_system)