使用fact_wrap（）和geom_text（）在点上写错标签

Question

我想在每个点上写下百分比。

数据：sample of the data

情节代码： -

plot2 <- ggplot(counter2,aes(x= as.character(week) ,y =freq,group=Delivery.time))+
  geom_point(colour = "red")+
  geom_line(colour = "red")+
  labs(x="Month",y="Number Of Customers")+
  facet_grid(.~Delivery.time)+ 
  theme(axis.text.x = element_text(angle=45, hjust=1))+
  geom_text(aes(label = freq),size = 2.5, hjust = .5, vjust=-0.5)+
  facet_wrap(~Delivery.time, ncol = 1)
plot2 +geom_text(aes(label = paste("(",as.character(counter2$ratio),"%)",sep = "") ),size = 2.25, hjust = .5, vjust=-3)+
  ylim(0,70)

输出： -

它显示错误点的百分比，它将所有点水平解析并将第一个百分比放在顶部图形的第一个点上，然后将数据帧中的第二个百分比放在顶部图形的第二个点上，它应该在第一个点上点在第二张图上