plotly 條形圖 - 向標簽添加百分比

Question

我正在嘗試使用plotly中的 plotly package 創建一個簡單的條形圖。 我想在每個條形上方添加標簽，但我只能成功添加計數。 是否可以在每個計數旁邊添加百分比？ 這就是我所擁有的：

fig_valve <- plot_ly(valve_df, 
                    x = ~vlvsz_c, 
                    y = ~count,
                    type = "bar",
                    hoverinfo = "x+y")
fig_valve <- fig_valve %>%
  add_text(text = ~count, 
           textposition = "top", 
           textfont = list(size = 11, color = "black"), 
           showlegend = FALSE) %>%
  layout(title = "",
         xaxis = list(title = "Valve Size", showgrid = FALSE), 
         yaxis = list(title = "Count", showgrid = FALSE),
         showlegend = FALSE,
         font = t)

output：

我想知道是否可以添加每個類別的百分比。 非常感謝任何建議！

Answer 1

您可以通過text = ~paste0(count, " (", scales::percent(count / sum(count)), ")")在計數旁邊添加百分比，其中我使用scales::percent進行漂亮的格式化。 使用mtcars作為示例數據，試試這個：

library(plotly)
library(dplyr)
library(scales)

fig_valve <- mtcars %>% 
  count(cyl, name = "count") %>% 
    plot_ly( 
      x = ~cyl, 
      y = ~count,
      type = "bar",
      hoverinfo = "x+y")
fig_valve <- fig_valve %>%
  add_text(text = ~paste0(count, " (", scales::percent(count/sum(count)), ")"), 
           textposition = "top", 
           textfont = list(size = 11, color = "black"), 
           showlegend = FALSE) %>%
  layout(title = "",
         xaxis = list(title = "Valve Size", showgrid = FALSE), 
         yaxis = list(title = "Count", showgrid = FALSE),
         showlegend = FALSE,
         font = t)
fig_valve