在R中调整ggplotly hoover info中的百分比格式

Question

请帮忙：

如何在 ggplotly 图表的 hoover 信息中格式化百分比？我现在有这种格式：

但是，我希望它改为 0.10611384 这种格式：10%（不带小数）。

我试过这个代码：

 ggplot(data=ESIF_zajmovi_sektori, aes(x=Mjera, y=Udio, fill=Sektor))+ geom_bar(stat="identity", position="dodge", text = paste0("Mjera: ", ESIF_zajmovi_sektori$Mjera,
                                                       '<br>',
                                                       "Sektor: ", ESIF_zajmovi_sektori$Sektor, 
                                                       '<br>',
                                                       "% Udio:", scales::percent(ESIF_zajmovi_sektori$Udio)))+scale_fill_viridis(discrete = TRUE, option = "plasma") +labs(x= "ESIF mjera", y="% udio u ukupnom iznosu")+scale_y_continuous(labels = scales::percent)+theme_minimal() `ggplotly(G3, tooltip = "text")`

如您所见，我在 geom_bar() 中使用了文本函数，但是当我这样做时，我得到的图表没有任何胡佛信息！请帮忙，发送

Answer 1

为了达到您想要的效果，请将 text 美学放入 aes()。

library(plotly)
library(viridis)

ESIF_zajmovi_sektori <- data.frame(
  Mjera = 1,
  Udio = 1:4,
  Sektor = letters[1:4]
)

G3 <- ggplot(data = ESIF_zajmovi_sektori, aes(x = Mjera, y = Udio, fill = Sektor)) +
  geom_bar(stat = "identity", position = "dodge", aes(text = paste0(
    "Mjera: ", Mjera,
    "<br>",
    "Sektor: ", Sektor,
    "<br>",
    "% Udio:", scales::percent(Udio)
  ))) +
  scale_fill_viridis(discrete = TRUE, option = "plasma") +
  labs(x = "ESIF mjera", y = "% udio u ukupnom iznosu") +
  scale_y_continuous(labels = scales::percent) +
  theme_minimal()

ggplotly(tooltip = "text")

在R中调整ggplotly hoover info中的百分比格式

Adjusting the format of percentage in ggplotly hoover info in R

r

ggplot2

plotly

ggplotly