https://gewutang.cn/tags/3d/Recent content in 3D on 格物堂Hugo -- gohugo.iozh-cnMon, 28 Nov 2011 00:00:00 +0000https://gewutang.cn/2011/11/28/3d-graph-of-hcpc-in-r/Mon, 28 Nov 2011 00:00:00 +0000https://gewutang.cn/2011/11/28/3d-graph-of-hcpc-in-r/<p>第四届R会议上，余苓提到了一个叫FactoMineR的包，这个包提供了一个可以绘制立体谱系图的函数plot.HCPC()。我记得之前有人在COS论坛上问过这个问题，我就特别留意了一下这个函数。</p> <p>它的用法如下：</p> <pre><code class="language-r"># 安装包,如果未安装 # install.packages(&quot;FactoMineR&quot;) library(FactoMineR) #加载包 data(iris) #加载数据 res.hcpc &lt;- HCPC(iris[1:4], nb.clust=3) #基于PC的聚类 </code></pre> <p><img src="https://gewutang.cn/2011/11/28/3d-graph-of-hcpc-in-r/index_files/figure-html/unnamed-chunk-1-1.png" width="672" /><img src="https://gewutang.cn/2011/11/28/3d-graph-of-hcpc-in-r/index_files/figure-html/unnamed-chunk-1-2.png" width="672" /><img src="https://gewutang.cn/2011/11/28/3d-graph-of-hcpc-in-r/index_files/figure-html/unnamed-chunk-1-3.png" width="672" /></p> <pre><code class="language-r">plot.HCPC(res.hcpc, choice=&quot;3D.map&quot;, angle=60) #3D谱系图 </code></pre> <img src="https://gewutang.cn/2011/11/28/3d-graph-of-hcpc-in-r/index_files/figure-html/unnamed-chunk-1-4.png" width="672" /> <p>但是，这个图不够好，因为这个图缺少该有的交互性。等我有时间了，我会用rgl包重新写一个具有交互功能的立体谱系图。</p>