在分组条形图中设置变量顺序

Question

我的目标是制作一个分组条形图，其中每个簇号都作为不同的条形。这对我有用。但是，我不希望 R 重新排序我的变量。我包括了对我有用的方法。但它不再（我不知道为什么）。我现在也收到错误消息：

Error in levels<-(*tmp*, value = as.character(levels)) :   factor level [5] is duplicated

我找到了一种方法来重新排序数据。但是，您需要手动包含每个变量。我想使用自动化方法，因为我必须用不同的变量来绘制。

这也是方法对我不起作用的原因。此外，当我尝试使用 type = variable 在 aes 中设置顺序，然后添加 geom_col(aes(fill = variable)) 时，顺序不会改变，条形的颜色设置为灰色。

这是我的可重现示例：

library(ggplot2)

##Create dataset
first <- c("female", "male", "married", "divorced", "female", "male", "married", "divorced")
second <- c(1, 1, 1, 1, 2, 2, 2, 2)
third <- c(54, 46, 30, 70, 70, 30, 20, 80)

df <- data.frame(first, second, third)
names(df) <- c("variable", "cluster", "quantity")

##Attempt to sort the variables -> does not seem to do anything
df$variable <- factor(df$variable, levels = df$variable)

##Set colors for barplot
colors.barplot <- c("#708090", "#D53E4F", "#FBB869", "#F0E442")

##barplot of the results
ggplot(df, aes(y = quantity, x = cluster, fill = variable)) +
  geom_bar( stat = "identity", colour = "white") +
  scale_fill_manual(values = colors.barplot)#

当我这样做时，条形图按字母顺序堆叠。

Answer 1

替换您的代码

df$variable <- factor(df$variable, levels = df$variable)

与

library(forcats)
df$variable <- fct_inorder(df$variable, ordered = NA)

fct_inorder 按照因素在数据中出现的顺序对因素进行排序。

Answer 2

您只需要 unique 在您的 levels

df$variable <- factor(df$variable, levels = unique(df$variable))
df$cluster <- factor(df$cluster, levels = unique(df$cluster))

你会得到

在分组条形图中设置变量顺序

Set order of variables in grouped barplot

r

stacked

bar-chart

ggplot2