R标记中的双标图由两个变量？答案

【问题标题】：biplot in R labeling by two variables?R标记中的双标图由两个变量？
【发布时间】：2021-12-26 21:18:13
【问题描述】：

您好，我有一个多元数据集

我对缩放后的数据执行了 PCA，并使用 fviz_pca_biplot() 函数来显示双标图。

这是我所做的一个例子：

（以 mtcars 为例）

colnames(mtcars)

“mpg”“cyl”“disp”“hp”“drat”“wt”“qsec”“vs”“am”“gear”“carb”

ds <- mtcars %>%
  scale()
PCA_analysis <- princomp(ds)
fviz_pca_biplot(PCA_analysis, label = "all", habillage =  mtcars$gear)

问题是我不仅想通过“gear”变量显示标签，还想通过 mtcars 数据集的“am”变量显示标签，点颜色与“gear”变量和形状相关这些点是相对于“am”变量的

【问题讨论】：

【解决方案1】：

没有简单的方法，但你可以尝试只绘制文本：

g = fviz_pca_biplot(PCA_analysis, label = "all", 
habillage =  mtcars$gear,geom="text",show.legend=FALSE)

然后手动将数据添加到 ggplot 对象并通过调用 geom_point() 完成：

g$data$am = factor(mtcars$am)
g$data$gear = factor(mtcars$gear)
g + geom_point(aes(color = gear,shape = am))

【讨论】：