从x轴GGR绘图中删除单个条目

我试图找出如何在绘图中从x轴上删除特定值

df <- data.frame(schoolid = c(101, 102, 103, 104, "Mean"), 
value = c(2.5, 2, 4.3, 1, 3.5),
col = c("1","2","2","2","3" ))

 schoolid value col
1      101   2.5   1
2      102   2.0   2
3      103   4.3   2
4      104   1.0   2
5     Mean   3.5   3

ggplot(df, aes(x = reorder(schoolid, value), y = value, fill = col)) +
  geom_bar(stat = "identity", color = "black") +
  theme_minimal() +
  scale_fill_manual(values=c("#E69F00","#999999",  "#56B4E9")) +
  ylim(0,5) +
  ylab("Value") +
  xlab(" ")

---

df有一点硬编码，但它实现了以下功能：

ggplot(df, aes(x = reorder(schoolid, value), y = value, fill = col)) +
  geom_bar(stat = "identity", 
           color = "black") +
  scale_x_discrete(labels= c(" ", " ", "101", "Mean", " ")) +
  scale_fill_manual(values=c("#E69F00","#999999",  "#56B4E9")) +
  theme_minimal() +
  ylim(0,5) +
  ylab("Value") +
  xlab(" ") + 
  theme(legend.position = "none")

谢谢，这为我找到一个非硬编码版本提供了一个良好的开端！
ggplot(df, aes(x = reorder(schoolid, value), y = value, fill = col)) +
  geom_bar(stat = "identity", 
           color = "black") +
  scale_x_discrete(labels= c(" ", " ", "101", "Mean", " ")) +
  scale_fill_manual(values=c("#E69F00","#999999",  "#56B4E9")) +
  theme_minimal() +
  ylim(0,5) +
  ylab("Value") +
  xlab(" ") + 
  theme(legend.position = "none")