3D visualization of STitch3D’s constructed embryo central nervous system

drosophila_embryo_cns.knit

rm(list = ls())
options(warn=-1)
library(rgl)
library(misc3d)
knitr::knit_hooks$set(webgl = hook_webgl)

Load plot3D functions.

source("./plot3D_func.R")

STitch3D reconstructs the embryo central nervous system.

celltypes <- c("CNS")
celltype_colors <- c("#1f77b4")
um <- c(0.9817252, -0.02731942, 0.1883346, 0,
        -0.1564891, -0.67904097, 0.7172270, 0,
        0.1082924, -0.73359174, -0.6709063, 0,
        0, 0, 0, 1) #set the initial view of the 3D plot
spot_radius <- 0.5
axis_rescale <- c(1, 1, 1.5)
alpha_threshold <- 0.5
alpha_background <- 0.02

plot3D_proportions(directory = "./results_Drosophila_embryo",
                   celltypes = celltypes,
                   celltype_colors = celltype_colors,
                   um = um,
                   spot_radius = spot_radius,
                   alpha_threshold = alpha_threshold,
                   alpha_background = alpha_background
                   )