Изменить угол метки geom_text на графике

Question

У меня есть следующий график, который я построил, используя ggplot + ggplotly.

Я пытаюсь добавить метки к красной (медиана) и синей (процентиль 90%) вертикальной линии без удачи.Посоветуйте, пожалуйста, как мне это исправить.

Код, который я использовал:

p1 <- ggplot(users_d_total %>% filter(isSame, D_rank == 2), aes(x = D, fill = as.factor(train_user_id))) +
  geom_density(alpha = .3) +
  labs(title = paste0("Without Normalization Analysis [K = 2]")) + 
  scale_fill_discrete(name = "Users") +
  scale_x_continuous(breaks = by_two) +
  geom_vline(aes(xintercept = median(D)), col = 'red', linetype = 1, size = 1) + 
  geom_text(aes(x = median(D), y = 1, label = "Median"), hjust = 1, angle = 90, colour= "red") + 
  geom_vline(aes(xintercept = quantile(D, probs = .9)), col = 'blue', linetype = 1, size = 1) +
  geom_text(aes(x = quantile(D, probs = .9), y = 1, label = "90th Percentile"), hjust = 1, angle = 90, colour = "blue") + 
  theme(axis.text.x = element_text(angle = 90, hjust = 1))

ggplotly(p1)

Я хочу, чтобы текст был вертикальным, но с использованием ответа Как добавить легенду для вертикальногостроки в ggplot? мне не помогли.