三维可视化与R中的颜色权重

Question

你能推荐一种方法，像一种格子包（点云可视化）可视化R中的数据集，但在这些部分中点的颜色变化更高？ 例如如果在坐标等于0：-1：6的距离10上有一个没有邻居的点，那么这个点将被标记为蓝色。并且当许多非常近邻的坐标为100：100：100（而邻居像99：100：100）时，那么这个点就是红色的。

此外，有必要能够在3D中生成这种可视化。

有没有这样的溶剂？

例子：

x = (sample.int(101,size=100,replace=TRUE)-1)/100 
y = (sample.int(101,size=100,replace=TRUE)-1)/100 
z = (sample.int(101,size=100,replace=TRUE)-1)/100 
data = data.frame(x,y,z) 

然后我想发展plot.ly东西，比如这个

library(plotly) 
plot_ly(type = 'scatter3d', x = x, y = y, z = z, mode = "markers") 

这提供了一个很好的结果，但我想特别是在色彩更加可视化。有溶剂吗？

Answer 1

有几种方法可以做到这一点。您可以根据距离定义中心的距离定义自己的方法，也可以使用聚类方法。

例如，使用k均值聚类：

set.seed(20) 
dataCluster <- kmeans(data, 5, nstart = 20)$cluster %>% 
    as.factor() 

plot_ly(type = 'scatter3d', x = x, y = y, z = z, mode = "markers", color = dataCluster)