订购堆叠和群集条形图ggplot时出错

Question

在下面的示例中，我绘制了一个堆叠的群集条形图，并从最高到最低对这些条进行了排序。 （请参见脚本和图像）。除了“ Dairy”类别中的两个栏外，此功能均有效。当我对乳制品进行子集处理并运行相同的脚本时，不会发生此问题。有人知道这里的问题吗？

(df=subset_food_lowconc, x-axis=Specification, y-axis=Concentration)

p <- ggplot(data = subset_food_lowconc, 
            aes(x = reorder(Specification, -Concentration), 
                y = Concentration, fill = Dicarbonyl)) +
  geom_bar(stat="identity")
p + 
 theme(axis.text.x = element_text(angle = 90, hjust = 1)) + 
 facet_grid(~subset_food_lowconc$Productgroup, scales = "free")