написание неправильных меток в точке с использованием fact_wrap () с geom_text ()

Question

Я хочу написать процент по каждой точке.

Данные: выборка данных

код участка: -

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)

вывод: -

отображает процент неправильных точек, анализирует все точки по горизонтали и ставит первый процент в первую точку верхнего графика, а затем второй процент в кадре данных во второй точке верхнего графика, он должен быть в первой точка на втором графике