要创建一个按每个条形颜色排序的gganimate堆叠条形图，需要使用ggplot2和gganimate库。

首先，我们需要准备数据并加载所需的库：

# 安装和加载所需的库
install.packages("ggplot2")
install.packages("gganimate")
library(ggplot2)
library(gganimate)

# 创建一个示例数据框
df <- data.frame(
  category = c("A", "B", "C", "D"),
  value1 = c(10, 20, 30, 40),
  value2 = c(20, 30, 40, 50),
  value3 = c(30, 40, 50, 60)
)

接下来，我们需要将数据框转换为适合绘制堆叠条形图的长格式：

# 将数据转换为长格式
df_long <- tidyr::gather(df, key = "variable", value = "value", -category)

然后，我们可以使用ggplot2创建堆叠条形图：

# 创建堆叠条形图
p <- ggplot(df_long, aes(x = category, y = value, fill = variable)) +
  geom_bar(stat = "identity") +
  theme_minimal()

最后，我们可以使用gganimate添加动画效果并按每个条形颜色排序：

# 添加动画效果并按每个条形颜色排序
p_animated <- p +
  transition_states(variable, transition_length = 2, state_length = 1) +
  enter_fade() +
  exit_shrink() +
  ease_aes('linear')

# 播放动画
animate(p_animated)

这样就可以创建一个按每个条形颜色排序的gganimate堆叠条形图。