自定义图例顺序 ggbiplot，建立在 ggplot2答案

【问题标题】：Custom legend order ggbiplot, built off ggplot2自定义图例顺序 ggbiplot，建立在 ggplot2
【发布时间】：2019-09-30 12:51:07
【问题描述】：

我使用ggbiplot() 函数创建了一个PCA 图，形成了ggbiplot 包，它建立在ggplot2 之上。这是一个类似的、可重现的例子：

library(ggbiplot)
data(wine)
wine.pca <- prcomp(wine, scale. = TRUE)
print(ggbiplot(wine.pca, obs.scale = 1, var.scale = 1, groups = wine.class, ellipse = TRUE, circle = TRUE))

到现在为止还挺好。我想将图例顺序更改为 grginolino、barbera、barolo（而不是现在的 barolo、grignolino、barbera）。名称存储在环境因素变量wine.class 中。

对于这样一个简单的问题，我深表歉意，但我无法从ggplot2 帮助中找到可以概括此案例的直接答案。

【问题讨论】：

您的代码不可重现。您的 wine 数据是否来自 Factominer 包？我因此使用data(wine, package = "FactoMineR")。然后数据需要在 PCA 之前进行预处理 --> 需要数值数据。
@cbo 道歉，我忘记包含对 ggbiplot 的库调用，它具有 wine 数据集。

标签： r ggplot2 ggbiplot

【解决方案1】：

您需要重新排序wine.class 级别；往下看：

library(ggbiplot)

data(wine, package = "ggbiplot")
wine.pca <- prcomp(wine, scale. = TRUE)
wine.class.reorder <-  factor(wine.class, levels = c("grignolino", "barbera", "barolo"))

ggbiplot(wine.pca, obs.scale = 1, var.scale = 1, groups = wine.class.reorder, 
                   ellipse = TRUE, circle = TRUE)

【讨论】：