在Rplotly中顯示甜甜圈圖中的總/總和-有解無憂

我有一個樣本data set，我正在嘗試donut在Rvia中繪制一個基本圖plotly。代碼幾乎（目前下面的代碼不更新第二種顏色）作業正常。現在，我想在 . 旁邊顯示兩者的values總和。IDsTyperespective percentages

我怎樣才能做到這一點？

資料

Value = c(50124,  9994,  9822, 13580,  5906,  7414, 16847,    59, 80550,  6824,  3111, 16756,  7702, 23034, 38058,  6729,  6951,     2,   408,
 37360, 20517, 18714,   352,     3, 42922, 30850,    21,  4667, 12220,  8762,   445,  1875,   719,   188,    26,   124,   996,    10,
    27,   304,    55, 34980,    67,     3,    25,  1012,  3588,    77,   847,    47,  1057,   924,   233,    40,     2,  2362,     3,
  1866,    16,     0,     0,     0)

Type = c("A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "A",
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A",  "A", 
"B",  "B",  "B",  "B",  "B",  "B",  "B",  "B",  "B",  "B",  "B", 
"B",  "B",  "B",  "B",  "B" "B", "B",  "B",  "B",  "B",  "B", 
"B",  "B",  "B",  "B",  "B",  "B",  "B")

df = data.frame(Type, Value)

代碼

    library(tidyverse)
    library(plotly)
    
    color = c('rgb(0,255,255)', 'rgb(255,127,80)')
    
    fig = df %>% plot_ly(labels = ~Type, 
                            values = ~Value,
                            #colors = c("grey50", "blue"),
                            marker = list(colors = color))
    fig = fig %>% add_pie(hole = 0.6,
                          text = ~paste(sum(Value)),
                          textinfo = "text   percent"))
    fig = fig %>% layout(title = "Title",  showlegend = T,
                          xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T),
                          yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T))
    
    fig

期望的輸出

在 R plotly 中顯示甜甜圈圖中的總/總和

uj5u.com熱心網友回復：

在您的資料框中計算一sum列并將其粘貼到text = ~paste(sum)

df1 <- df %>% 
  group_by(Type) %>% 
  mutate(sum = sum(Value))


library(tidyverse)
library(plotly)

color = c('rgb(0,255,255)', 'rgb(255,127,80)')

fig = df1 %>% plot_ly(labels = ~Type, 
                     values = ~Value,
                     #colors = c("grey50", "blue"),
                     marker = list(colors = color))
fig = fig %>% add_pie(hole = 0.6,
                      text = ~paste(sum),
                      textinfo = "text   percent")
fig = fig %>% layout(title = "Title",  showlegend = T,
                     xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T),
                     yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = T))

fig

在 R plotly 中顯示甜甜圈圖中的總/總和

轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/426663.html

標籤：r r-plotly

上一篇：如何擴展分位數回歸線geom_quantile以在ggplot中進行預測？

下一篇：將所有列值連接到一個單獨的列中