r - ggplot 在情节中重新排序因素而不影响图例顺序

Question

我想在不影响图例顺序的情况下重新排序我的情节因素。

例如：

library(ggplot)
library(data.table)

n <- 1000
X <- data.table(score = c(rnorm(n, -4, 1), rnorm(n, 0, 3)),
                group = rep(c("A", "B"), each = n))

X[, group := factor(group, levels = c("B", "A"))]

ggplot(X, aes(score, fill = group, color = group)) + 
  geom_density(aes(y=..scaled..)) +
  scale_fill_manual(values = c("darkgreen", "firebrick4")) +
  scale_color_manual(values = c("darkgreen", "firebrick4"))

如您所见，图例还受因子级别顺序的影响。这是我想要获得的：

标签： rggplot2