Пользовательский заказ легенды ggbiplot, построенный из ggplot2

Question

Я создал график PCA, используя функцию ggbiplot(), сформировав пакет 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, которая обобщает этот случай.

Answer 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)