R 在plotly中更改geom_文字标签角度

我使用

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)

p1%过滤器（ISNAME，D_秩==2），aes（x=D，fill=as.factor（训练用户id）））+
几何密度（α=0.3）+
实验室（标题=0（“无标准化分析[K=2]”）
比例\填充\离散（name=“Users”）+
缩放x连续（间隔=乘以2）+
几何线（aes（xintercept=中值（D）），列=红色，线型=1，尺寸=1）+
几何图形文本（aes（x=中间值（D），y=1，label=“中间值”），hjust=1，角度=90，颜色=“红色”）+
几何线（aes（xintercept=分位数（D，probs=.9）），列=蓝色，线型=1，大小=1）+
几何图形文本（aes（x=分位数（D，概率=0.9），y=1，label=“第90百分位”），hjust=1，angle=90，color=“蓝色”）+
主题（axis.text.x=元素\文本（角度=90，hjust=1））
Ggly（p1）

我希望文本是垂直的，但使用的答案从没有帮助我

---

如果不使用plotly，它是否可以工作？这在之前是不可能的。（MWE:

plotly:：ggplotly（ggplot（）+geom_text（aes（1，1，label=1，angle=90））

）

+coord_flip（）

：-）首先，我会使用boxplot/violinplot。或者将

geom_vline

的注释添加到Legendall，这只是一个一般提示，但您可以尝试

log2

x轴以实现可视化。是的，我知道：）希望有一天他们会修复它。