Как выровнять текст слева и цифры справа во всплывающей подсказке ggplotly?

#r #ggplot2 #r-plotly #ggplotly

Вопрос:

Я создаю сюжетно интерактивный объект и задаюсь вопросом, как выровнять текст слева и цифры справа?

Вот небольшой фрагмент кода

 sales <- data.frame(names = c("Joey","Adam","Paul"),
                    expenses = c(10056.244,17621.901,13090.782),
                    revenue = c(20161252367.729,1922363266239.341,24091234670.048))


ggplot(sales, aes(x = expenses, y = revenue))  
  geom_point(aes(text = paste0("Expenses: $",format(round(expenses,2), nsmall = 1, big.mark = ","),
                               "nRevenue: $",format(round(revenue,2), nsmall = 1, big.mark = ","))
                 ))  
  stat_smooth(method = "lm", level = 0.1,
              size = 0.25, color = "red")

ggplotly(tooltip = "text") %>% 
  layout(hoverlabel = list(align = "right"))
 

Прямо сейчас подсказка выдает этот выходной
img

Я хотел бы выровнять текст «Выручка:» слева, а затем номер справа. Я попытался предоставить функции выравнивания вектор, чтобы выполнить операции по порядку, но это тоже не сработало. У меня такое чувство, что я не смогу использовать paste0 для этого, поэтому, если это так, как бы я решил эту проблему? Это важно, потому что гораздо проще сравнивать финансовые показатели, если они выровнены правильно.

Бонусные баллы: Я также хотел бы создать метку для ховертекста для линии регрессии, если это возможно, но выравнивание, вероятно, более важно.