如何在 ggplot2 for R 中设置填充变量的顺序

Question

我想知道是否有一种方法可以为 ggplot 中的并排条形图定义每组的出现顺序。我的数据集是

> 东风 V1 V2 V3 1 真关节 0.18 2 真实个人 0.82 3 估计联合 0.37 4 估计个人 0.63

以下代码行

library(ggplot2)

ggplot(df, aes(x = V2, y = V3, fill = V1)) +
  geom_col(position = position_dodge2()) +
  scale_fill_manual(values=c("steelblue","coral2")) +
  guides(fill = guide_legend(reverse = T)) +
  scale_x_discrete(limits = unique(df$V2)) +
  theme(legend.title = element_blank()) +
  xlab("Structure") + ylab("Variance") +
  ggtitle("Variance Explained by Joint and Individual structure")

给我这张图 side-by-side-barplot.

对于每个组，我希望珊瑚色条位于左侧，蓝色条位于右侧。我尝试使用代码行重新排序数据集，例如

df = arrange(df, df$V1)
df = df[order(df$V1, decreasing = F),]
df = df[c(1,3,2,4),]
df = df[c(1,4,3,2),]

但他们没有工作。

Answer 1

您可以通过转换为factor 并按您想要的顺序设置级别来达到您想要的结果：

此外，我使用了一个命名向量来将颜色分配给类别。但这只是个人喜好问题。

library(ggplot2)

ggplot(df, aes(x = V2, y = V3, fill = factor(V1, levels = c("True", "Estimate")))) +
  geom_col(position = position_dodge2()) +
  scale_fill_manual(values = c(Estimate = "steelblue", True = "coral2")) +
  guides(fill = guide_legend(reverse = T)) +
  scale_x_discrete(limits = unique(df$V2)) +
  theme(legend.title = element_blank()) +
  xlab("Structure") +
  ylab("Variance") +
  ggtitle("Variance Explained by Joint and Individual structure")

数据

df <- structure(list(
  V1 = c("True", "True", "Estimate", "Estimate"),
  V2 = c("Joint", "Individual", "Joint", "Individual"), V3 = c(
    0.18,
    0.82, 0.37, 0.63
  )
), class = "data.frame", row.names = c(
  "1",
  "2", "3", "4"
))

Answer 2

您可以简单地将reverse = TRUE 参数添加到position_dodge2：

ggplot(df, aes(x = V2, y = V3, fill = V1)) +
  geom_col(position = position_dodge2(reverse = TRUE)) +
  scale_fill_manual(values=c("steelblue","coral2")) +
  guides(fill = guide_legend(reverse = T)) +
  scale_x_discrete(limits = unique(df$V2)) +
  theme(legend.title = element_blank()) +
  xlab("Structure") + ylab("Variance") +
  ggtitle("Variance Explained by Joint and Individual structure")