我使用fviz_eig并尝试更改字体大小和百分比标签的类型，但出现一些错误

Question

我使用

fviz_eig

使用以下代码生成具有自定义尺寸和标签字体类型的解释方差图：

stress.m_pca <- PCA(stress.m, scale.unit = TRUE, ncp = 8, graph = FALSE)
stress.m_pca2 <- prcomp(stress.m, scale. = TRUE)

fviz_eig(stress.m_pca, addlabel = F, ncp = 8) +
geom_text(label = paste(round((stress.m_pca2$sdev^2/sum(stress.m_pca2$sdev^2)*100),2),"%"),
            vjust= -0.6,
            hjust = 0.3,
            size = 8,
            family = "Times New Roman")

但是我收到了如附图所示的错误，但我不知道如何修复它：

解决此错误的建议或代码

Answer 1

由于您没有提供任何数据，我使用的是

factoextra

提供的默认数据。以下代码非常适合我

library(factoextra)

data(decathlon2)
decathlon2.active <- decathlon2[1:23, 1:10]

res.pca <- prcomp(decathlon2.active, scale = TRUE)

fviz_eig(res.pca, addlabels = F) +
  geom_text(label = paste0(round(res.pca$sdev^2/sum(res.pca$sdev^2)*100,2),"%"), 
            vjust=-0.4, hjust = 0, family="serif", size = 5)