如何在ggplot中排序和修剪条形图？

Question

如何修剪水平ggplot条形图中不代表任何条形的条目？请找到下面的图片。

这是我当前的代码。数据帧df5中的数据代表Group.1 = api端点，x =请求数。

df3 <- order(df2$num_requests, decreasing = T)
df2 <- df2[df3,]
df4 <- data.frame(df2$api_endpoint, df2$num_requests, df2$avg_latency)
df5 <- aggregate(df2$num_requests,list(df2$api_endpoint), mean)

ggplot(data = df5,
       aes(x = reorder(df5$Group.1,df5$x), y = df5$x)) + 
  geom_bar(stat = "identity")+
  xlab("No of requests")+
  ylab("API Endpoints")+
  ggtitle("Top API endpoints based on the number of request")+
  coord_flip()

例如，我想优化我的代码并使其更美观。

1. 为x和y轴名称添加更多间距
2. 为条形图着色
3. 指示其他颜色中具有最高值的前5个条形
4. 在x轴上指示正确的数字