Форматировать числа по осям и подсказкам в ggplotly

Question

Я использовал sprintf и формат C, чтобы взять двойное значение и округлить его до двух десятичных разрядов. Однако, когда я go использую его в ggplot и ggplotly, это заставляет мои визуальные эффекты действовать.

Производительность:

   structure(list(Date = structure(c(18328, 18329, 18330, 18331, 
    18332, 18333), class = "Date"), State = c("Louisiana", "Louisiana", 
    "Louisiana", "Louisiana", "Louisiana", "Louisiana"), variablename1 = c(0, 
    0, 1, 1, 6, 14), variablename2 = c(5, 5, 5, 11, 37, 37), death = c(0, 
    0, 0, 0, 0, 0), variablename3 = c(5, 5, 6, 12, 43, 51), variablename4 = c(0, 
    0, 0, 0, 0, 0), variablename5 = c(0, 0, 0, 0, 0, 0), variablename6 = c(0, 
    0, 0, 6, 26, 0), variablename7 = c(0, 0, 1, 0, 5, 8), variablename8 = c(0, 
    5, 1, 6, 31, 8), Percent = c(0, 0, 16.6666666666667, 8.33333333333333, 
    13.953488372093, 27.4509803921569)), row.names = c(NA, -6L), groups = structure(list(
        State = "Louisiana", .rows = list(1:6)), row.names = c(NA, 
    -1L), class = c("tbl_df", "tbl", "data.frame"), .drop = TRUE), class = c("grouped_df", 
    "tbl_df", "tbl", "data.frame"))

Редактировать: В своем стремлении найти трюки я нашел «недолгий» способ сделать вещи более эффективными. Просто используйте round (variable, 2) для округления значения до второго десятичного знака и используйте его. На данный момент.

Answer 1

Это может быть легко достигнуто с помощью scales::percent или scales::percent_format. В качестве примера я сделал линейный график Percent на Date, где я использую scales::percent_format для форматирования меток оси Y и scales::percent для форматирования значения процента во всплывающей подсказке:

library(ggplot2)
library(plotly)

p <- df %>% 
  ungroup() %>% 
  ggplot(aes(Date, Percent, color = State, group = State, 
             text = sprintf("State: %s<br>Date: %s<br>Percent: %s", 
                            State, Date, scales::percent(Percent, scale = 1, accuracy = .01)))) +
  geom_line() +
  scale_y_continuous(labels = scales::percent_format(scale = 1, accuracy = .01))

ggplotly(p, tooltip = 'text')