分层ScatterD3图?

时间:2017-01-25 11:53:39

标签: r plot layer pca scatter

是否可以将多层ScatterD3图重叠在一起?我无法在小插曲或搜索StackExchange / Google的任何地方找到它。

我很好奇,因为人们已经能够使用ScatterD3制作PCA Vector Loading图。如果一个人可以将这个点覆盖在另一个带有点的情节之上(类似于ggplot2ggvis图层可能的情况),你可以拥有一个华丽的交互式PCA情节。此外,您可以概述点(因为点击当前不是一个选项)。

有没有人有任何见解或解决方法?

2 个答案:

答案 0 :(得分:0)

有可能,但更难。我建议使用plotly包。您将能够使用RStudio中的“视图”选项卡,并通过旋转更轻松地检查3D散射。配色方案也更容易添加This post尝试解决类似问题,但不完全相同。可以找到plotly的好(免费)教程here through DataCamp

答案 1 :(得分:0)

Question answered here感谢ScatterD3的作者。要生成完整的PCA图,您需要重新定义所绘制的数据框,如下所示:

library(FactoMineR)
library (ScatterD3)

out<-PCA(iris[,1:4],scale.unit = TRUE, graph=FALSE)
    cc1<-data.frame(out$ind$coord)
    cc2<-data.frame(out$var$coord)

points <- data.frame(x = cc1$Dim.1, 
                     y = cc1$Dim.2,
                     color = iris$Species,
                     lab = row.names(iris), 
                     type = rep("point", 150))

arrows <- data.frame(x = cc2$Dim.1, 
                     y = cc2$Dim.2, 
                     color = "Blue",
                     lab = row.names(cc2), 
                     type = rep("arrow", 4))

data1 <- rbind(points, arrows)

scatterD3(data1, x = x, y = y,
          lab = lab, type_var = data1$type, col_var = color)