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

Question

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

所以我有

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

我们可以在labels中使用pie参数

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"))