Below is a demo. You have to install relevant R packages, such as nat.

library(nat)

mesh <- rgl::readOBJ(con = "XXX.obj")

neuron <- nat::read.neuron("XXX.swc")

open3d()
plot3d(neuron, soma = 10)
shade3d(mesh, alpha = 0.1, color = "white")