AutoPlot不支持PRCOMP类型的对象

Question

我有多个列的数据框。我想进行PCA并与决策树进行分类，以检查iL.count.ratio上的信息是否到une.count.ratio实际上可以帮助区分这两个专业。

Profession    il.count.ratio   elle.count.ratio    un.count.ratio   une.count.ratio
secretary      1.7241              1.3514             1.473            0.7380
secretary      0.0000              2.8736             2.8536           0.8370
driver         1.7065              0.0000             0.0000           0.7380
driver         0.5284              1.4733             0.7380           0.5280

输出为：autoplot（）中的错误： 呢AutoPlot不支持PRCOMP的对象。

有人知道可能是什么问题？

data %>%
  select(il.count.ratio:une.count.ratio) %>%
  prcomp() %>%
  autoplot(data = data,
           colour = 'Profession',
           loadings = TRUE,
           loadings.colour = "blue",
           loadings.label = TRUE,
           loadings.label.colour = "blue")

Answer 1

您可以使用Broom的增强（用于PC）和整理（用于加载）在ggplot ing之前获取数据框：

library(tidyverse)
library(broom)

data <- tribble(
  ~Profession, ~il.count.ratio, ~elle.count.ratio, ~un.count.ratio, ~une.count.ratio,
  "secretary", 1.7241, 1.3514, 1.473, 0.7380,
  "secretary", 0.0000, 2.8736, 2.8536, 0.8370,
  "driver", 1.7065, 0.0000, 0.0000, 0.7380,
  "driver", 0.5284, 1.4733, 0.7380, 0.5280
)

data %>%
  select(il.count.ratio:une.count.ratio) %>%
  prcomp() %>% 
  augment(data) %>% 
  ggplot(aes(.fittedPC1, .fittedPC2, colour = Profession)) +
  geom_point()

  
# Use instead of augment for the loadings
# tidy(matrix = "loadings")

^{在2022-06-30创建的 reprex软件包（v2.0.1）}