r - 如何画一个里面有双色粒子的 Crystal 球

Question

我只是提出一个有可能结束的想法。我需要画一个 Crystal 球，红色和蓝色粒子随机分布在其中。我想我必须使用 photoshop，甚至尝试在图像中制作球，但由于这是用于研究论文并且不必很花哨，我想知道是否有任何方法可以使用 R、matlab 或任何程序进行编程其他语言。

Answer 1

在 R 中，使用 rgl 包(R-to-OpenGL 接口(interface)):

library(rgl)
n <- 100
set.seed(101)
randcoord <- function(n=100,r=1) {
    d <- data.frame(rho=runif(n)*r,phi=runif(n)*2*pi,psi=runif(n)*2*pi)
    with(d,data.frame(x=rho*sin(phi)*cos(psi),
                      y=rho*sin(phi)*sin(psi),
                      z=rho*cos(phi)))
}
    ## http://en.wikipedia.org/wiki/List_of_common_coordinate_transformations
with(randcoord(50,r=0.95),spheres3d(x,y,z,radius=0.02,col="red"))
with(randcoord(50,r=0.95),spheres3d(x,y,z,radius=0.02,col="blue"))
spheres3d(0,0,0,radius=1,col="white",alpha=0.5,shininess=128)
rgl.bg(col="black")
rgl.snapshot("crystalball.png")