Метки ggplot2 скрыты за гистограммой

Question

Итак, у меня есть этот код:

ggplot(aes(x=Year,y=Household.Expenditure.Total,
             fill=Household.Expenditure.on.Tobacco,
             label=Expenditure.on.Tobacco.as.a.Percentage.of.Expenditure))+
  theme_classic()+
  geom_text_repel()+
  geom_col()+
  scale_x_continuous(breaks=seq(1985,2015,by=5))+
  labs(x="Year",
       y="Household expenditure on tobacco and Household expenditure total",
       title="The comparison of Household expenditure on tobacco \nand 
Household expenditure total over years ",
       caption="data form kaggle")+
  theme(legend.position="bottom", plot.title = element_text(hjust = 0.5,vjust = 1))

Не забывайте, что у меня установлен и работает ggrepel. Но мой сюжет выглядит так:

Я смотрел на другие вопросы, но не нашел ничего похожего на это. Если вы думаете, что есть один, который может помочь мне, или если вам нужна дополнительная информация, дайте мне знать. Спасибо!