R如何計算PCA橢圓？-有解無憂

R 如何知道在何處放置 PCA 圖的置信橢圓？我有一個使用 iris 資料集的最小代碼：

library(factoextra)
a<-data.matrix(iris[-5])
b<-prcomp(a, scale. = TRUE, center = TRUE)
fviz_pca_ind(b,
             col.ind = iris$Species,
             addEllipses = TRUE)

我知道我可以用b$x. 我也知道我可以用b$center. 如何從資料中重新匯出橢圓？

uj5u.com熱心網友回復：

如果您在談論如何， R 如何計算 PCA 橢圓？

uj5u.com熱心網友回復：

如果您一直跟蹤代碼，您會發現橢圓只是geom_polygons用來創建的stat = "ellipse"，即它們是stat_ellipse在 ggplot中計算出來的。

我們可以通過僅使用基數 R 和重新創建繪圖來顯示這一點ggplot。以下是一個完全可重現的示例：

library(ggplot2)

b <- prcomp(iris[-5], scale. = TRUE, center = TRUE)
df <- as.data.frame(predict(b)[,1:2])
df$Species <- iris$Species


ggplot(df, aes(PC1, PC2, color = Species))   
  geom_point()  
  theme_bw()  
  geom_polygon(stat = "ellipse", aes(fill = Species), alpha = 0.3)

R 如何計算 PCA 橢圓？

最終，stat_ellipse從與相同的方法獲取其資料cars::dataEllipse，因此如果您想要橢圓的原始坐標，您可以執行以下操作：

e <- car::dataEllipse(df$PC1, df$PC2, df$Species)

并獲得第 95 個百分位數的法線資料橢圓坐標，如下所示：

e$setosa$`0.95`
#>               x           y
#>  [1,] -2.167825  2.06328716
#>  [2,] -2.104642  2.04546589
#>  [3,] -2.043166  1.99227221
#>  [4,] -1.984331  1.90451250
#>  [5,] -1.929028  1.78351710
#>  [6,] -1.878095  1.63112017
#>  [7,] -1.832305  1.44963190
#>  [8,] -1.792351  1.24180347
#>  [9,] -1.758839  1.01078534
#> [10,] -1.732278  0.76007952
#> [11,] -1.713069  0.49348644
#> [12,] -1.701504  0.21504739
#> [13,] -1.697759 -0.07101678
#> [14,] -1.701889 -0.36036963
#> [15,] -1.713833 -0.64862486
#> [16,] -1.733410 -0.93141283
#> [17,] -1.760322 -1.20444675
#> [18,] -1.794162 -1.46358770
#> [19,] -1.834417 -1.70490738
#> [20,] -1.880476 -1.92474763
#> [21,] -1.931641 -2.11977588
#> [22,] -1.987137 -2.28703571
#> [23,] -2.046123 -2.42399164
#> [24,] -2.107703 -2.52856754
#> [25,] -2.170946 -2.59917816
#> [26,] -2.234892 -2.63475311
#> [27,] -2.298571 -2.63475311
#> [28,] -2.361018 -2.59917816
#> [29,] -2.421288 -2.52856754
#> [30,] -2.478465 -2.42399164
#> [31,] -2.531684 -2.28703571
#> [32,] -2.580138 -2.11977588
#> [33,] -2.623091 -1.92474763
#> [34,] -2.659894 -1.70490738
#> [35,] -2.689988 -1.46358770
#> [36,] -2.712917 -1.20444675
#> [37,] -2.728333 -0.93141283
#> [38,] -2.736002 -0.64862486
#> [39,] -2.735809 -0.36036963
#> [40,] -2.727757 -0.07101678
#> [41,] -2.711966  0.21504739
#> [42,] -2.688678  0.49348644
#> [43,] -2.658244  0.76007952
#> [44,] -2.621126  1.01078534
#> [45,] -2.577888  1.24180347
#> [46,] -2.529183  1.44963190
#> [47,] -2.475751  1.63112017
#> [48,] -2.418401  1.78351710
#> [49,] -2.358004  1.90451250
#> [50,] -2.295473  1.99227221
#> [51,] -2.231758  2.04546589
#> [52,] -2.167825  2.06328716

^{Created on 2021-11-05 by the reprex package (v2.0.0)}

轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/350435.html

標籤：r 个人电脑

上一篇：在R中的模式之間粘貼字串

下一篇：Shiny中列之間的垂直分隔線