Chọn số lượng thành phần

Phân phối Xác suất Đa biến trong R

Surajit Ray

Professor, University of Glasgow

Tóm tắt đối tượng princomp

summary(cars.pca)

Tầm quan trọng của các thành phần:
                       Comp.1 Comp.2 Comp.3 Comp.4 Comp.5 Comp.6 Comp.7 Comp.8  Comp.9
Độ lệch chuẩn          2.378  1.443  0.710 0.5148 0.4280 0.3518 0.3241 0.2419 0.14896
Tỷ lệ phương sai       0.628  0.231  0.056 0.0294 0.0204 0.0138 0.0117 0.0065 0.00247
Tỷ lệ tích lũy         0.628  0.860  0.916 0.9453 0.9656 0.9794 0.9910 0.9975 1.00000

Dùng biểu đồ scree

Phương pháp 1

Tỷ lệ phương sai giải thích

screeplot(cars.pca, type = "lines")

Chọn dựa trên

độ dốc của đường cong
sau đó là đoạn phẳng

Phương sai tích lũy được giải thích

Phương pháp 2

Tích lũy phương sai
Giải thích đến ngưỡng đặt trước

summary(cars.pca)

Tầm quan trọng của các thành phần:
                      Comp.1 Comp.2 Comp.3 Comp.4 Comp.5 Comp.6 Comp.7 Comp.8  Comp.9
Độ lệch chuẩn         2.378  1.443  0.710 0.5148 0.4280 0.3518 0.3241 0.2419 0.14896
Tỷ lệ phương sai      0.628  0.231  0.056 0.0294 0.0204 0.0138 0.0117 0.0065 0.00247
Tỷ lệ tích lũy        0.628  0.860  0.916 0.9453 0.9656 0.9794 0.9910 0.9975 1.00000

Tính tỷ lệ phương sai tích lũy

Tỷ lệ tích lũy

# Phương sai được giải thích
pc.var <- cars.pca$sdev^2

# Tỷ lệ phương sai
pc.pvar <- pc.var / sum(pc.var)

# Tỷ lệ tích lũy
plot(cumsum(pc.pvar), type = 'b')

abline(h = 0.9, lty = 2)

Tính tỷ lệ phương sai tích lũy

Tỷ lệ tích lũy

# Phương sai được giải thích
pc.var <- cars.pca$sdev^2

# Tỷ lệ phương sai
pc.pvar <- pc.var / sum(pc.var)

# Tỷ lệ tích lũy
plot(cumsum(pc.pvar), type = 'b')

abline(h = 0.9, lty = 2)

3 PC giải thích 90 phần trăm phương sai

Cùng luyện tập nào!

Phân phối Xác suất Đa biến trong R