在 facet_grid 中重构后标注器未应用标签

如何解决在 facet_grid 中重构后标注器未应用标签

我正在尝试使用 ggplot2 中的 labeller 函数来标记分面图。当我运行我的代码时，如果我尝试在我的变量重构中包含标签（即第 5 个和第 4 个方面标签没有按预期切换），我会得到错误标记的方面，或者贴标机似乎不适用如果在重构之外使用新标签，但顺序是正确的。附上每种情况的图像，以及我试图用作标签的变量。我在这里错过了一步吗？

dnr_names <- c('ND','GD','APD','TTD','MD')
  names(dnr_names) <- c(1,2,3,4,5)

D1 <- ggplot(fsom_neurons_Meta_norm) +
      aes(x = Metadisease,fill = Meta,weight = Meta_n_norm) +
      geom_bar(position = "dodge") +
      scale_fill_manual(labels = c(1,5,6,7,8,9,10,11),values = color6) +
      labs(x = "Cluster types",y = "Cluster proportions (relative to total region)",title = "Neuronal populations across de novo regions",fill = "Cluster") +
      scale_x_discrete(labels=c("D","ND")) +
      theme_minimal() +
      theme1a +
      theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank()) +#gets rid of lines
      facet_grid(cols = vars(factor(de_novo_regions,levels = c(1,4))),labeller = labeller(de_novo_regions = dnr_names))
    
D1

D1 <- ggplot(fsom_neurons_Meta_norm) +
      aes(x = Metadisease,4),labels = dnr_names)))

D1