Мне удалось добавить текст, но «2018» должен отображаться внутри оси X (то есть выровнен по другим годам, но все еще на 90 градусов). Любая идея о том, как сделать это без необходимости переделывать оси? Я бы предпочел не трогать, как он был создан, а открыть, если это необходимо.
Текущий код для добавления пунктирной линии 2018 и текста:
MyPlot <- MyPlot + geom_vline(xintercept=YearForPlot, color="black", linetype="dotted")
MyPlot <- MyPlot + geom_text(aes(x=YearForPlot, y=0, angle=90, label=YearForPlot), color="black", size=8)
Изображение:
Небольшой дополнительный вопрос: как дать немного больший интервал между меткой оси "Год" и годами ("2000")?
Спасибо!