饼图标签中的文本和百分比

Question

您好，我正在做一个基本的饼图，但是当我这样做时，只有 "names" 显示为标签。我希望标签是名称+百分比。

所以我有：

reasons=prop.table(table(data$Reason[data$Stops %in% 1]))*100

有了这个我得到：

DP 64
UV 20
TC 16

然后

pie(reasons, color=rainbow(reasons), main="Distribution of Reasons")

这样我只得到带有标签 DP、UV 和 TC 的馅饼。

我应该添加什么才能在标签中获得 DP 64%、UV 20%、TC 16%？

Answer 1

我们可以在pie

中使用labels参数

library(dplyr)
df <- read.table(text =
    "DP 64
UV 20
TC 16") %>%
    setNames(c("Reason", "Value")) %>%
    mutate(Percentage = sprintf("%s %3.1f%%", Reason, Value / sum(Value) * 100))
with(df, pie(
    Value,
    labels = Percentage,
    col = rainbow(length(Value)),
    main = "Distribution of Reasons"))

饼图标签中的文本和百分比

Text and percentages in labels of pie chart

label

r

pie-chart