r-plotly:用值代替百分比的饼图

Question

我需要用R绘制一个饼图，但不是显示百分比，而是将原始计数叠加在饼图部分上(即300,250,110,190)。

下面的代码制作了饼图，但带有百分比。

WhatIHave <- c("Money" = 300,
            "Dinosaurs" = 250,
            "Aether" = 110,
            "Discussions" = 190)
data <- data.frame("Category" = names(WhatIHave), WhatIHave)

p <- plot_ly(data, labels = ~Category, values = ~WhatIHave, type = 'pie') %>%
    layout(title = 'Lovely Pie',
           xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
           yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))
p

我不敢相信以前没有人问过这个问题，但我真的在前面的问题中找不到它，或者在情节文档中。如果这是一个重复的问题，很抱歉。

Answer 1

您可以创建一个名为vals的字符向量，以在片段图中使用

vals <- paste(data$WhatIHave, sep = "")

p <- plot_ly(data, labels = ~Category, values = ~WhatIHave, type = 'pie', textinfo = "text", text = vals) %>%
    layout(title = 'Lovely Pie',
           xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
           yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))
p

编辑

如果要同时包含值和百分比，可以执行以下操作：

textinfo = "text + values"