关于ggplot2条形图变换方法的问题

我希望条形图以两种形式出现，因此我创建了重复数据并将其用作输入。所以我使用了下面表格中的数据。

我把数据放在上面的表格里，写了下面的代码来使用它。

Select <- "Mbp"

if(Select == "Mbp"){
  Select <- "Amount of sequence (Mbp)"
} else if (Select == "Gbp"){
  Select <- "Amount of sequence (Gbp)"
}


ggplot(G4, aes(x = INDV, y = Bp, fill = Group)) + theme_light() +
  geom_bar(stat = 'identity', position = 'dodge', width = 0.6) + coord_flip() + 
  scale_x_discrete(limits = rev(unname(unlist(RAW_TRIM[1])))) +
  scale_fill_discrete(breaks = c("Raw data","Trimmed data"))+
  scale_y_continuous(labels = scales::comma, position = "right") +
  theme(axis.text = element_text(colour = "black", face = "bold", size = 15)) + 
  theme(legend.position = "bottom", legend.text = element_text(face = "bold", size = 15),
        legend.title = element_blank()) + ggtitle(Select) + xlab("") + ylab("") + 
  theme(plot.title = element_text(size = 25, face = "bold", hjust = 0.5))

然后我可以得到一个像下面这样的图，我希望红色的图在绿色的图的上面。我还尝试更改数据的顺序，Internet和Stack Overflow等多个站点提供并使用了解决方案，但没有一个解决方案能够解决这些问题。

如果您知道解决方案，请告诉我如何修改代码或更改数据。非常感谢。