在R,y轴以不同比例添加文本到水平条形图？

library(ggplot2)

ggplot(data = df, aes(x = loc, y = cars_sold)) +
  geom_col(fill = "darkblue") +
  coord_flip() +
  labs(title = "Number of Cars Sold by Dealership") +
  facet_wrap(~V1) +
  theme_bw() +
  theme(panel.border = element_blank(), panel.grid = element_blank(), strip.text = element_blank())

ggplot(data = df, aes(x = loc, y = cars_sold)) +
  geom_col(fill = "darkblue") +
  coord_flip() +
  labs(title = "Number of Cars Sold by Dealership") +
  facet_wrap(~V1) +
  theme_bw() +
  theme(panel.border = element_blank(), panel.grid = element_blank(), strip.text = element_blank()) +
  geom_text(aes(label = cars_sold), hjust = -0.2, color = "white", size = 3) +
  geom_line(aes(y = cars_sold, group = 1, color = "Cars Sold"), size = 1) +
  geom_point(aes(y = cars_sold, group = 1, color = "Cars Sold"), size = 2)

ggplot(data = df, aes(x = loc, y = cars_sold)) +
  geom_col(fill = "darkblue") +
  coord_flip() +
  labs(title = "Number of Cars Sold by Dealership") +
  facet_wrap(~V1) +
  theme_bw() +
  theme(panel.border = element_blank(), panel.grid = element_blank(), strip.text = element_blank()) +
  geom_text(aes(label = cars_sold), hjust = -0.2, color = "white", size = 3) +
  geom_line(aes(y = cars_sold, group = 1, color = "Cars Sold"), size = 1) +
  geom_point(aes(y = cars_sold, group = 1, color = "Cars Sold"), size = 2)