在 R 中使用四舍五入的百分比制作数据标签，加起来为 100%

Question

问题概述

当在饼图或堆积 100% 柱形图/条形图等图表中表示数据时，我通常喜欢添加带有每个类别的绝对值和百分比值的数据标签。 但是，在很多情况下，由于四舍五入，这些标签中的百分比加起来不等于 100%。 有没有什么办法解决这一问题？

示例和代码

library(dplyr)
library(ggplot2)

# Creating a small dataset
df = data.frame(categories = c('Cat1','Cat2','Cat3','Cat4'),
                values = c(2200,4700,3000,2000)) %>% 
  mutate(perc = values / sum(values))

# Creating the data label text.
# This is the step where I need to make a change. More specifically, in the `label_percs` section.
df = df %>% mutate(label_values = format(values, 
                                         big.mark = ",", 
                                         decimal.mark = ".", 
                                         scientific = FALSE),
                   label_percs = sprintf("%0.0f%%", 
                                         percs*100),
                   data_label = paste(label_values,
                                      label_percs,
                                      sep='\n'))

# Generating the pie chart graph in ggplot2
p = ggplot(df, aes(x = "", y = values, fill = categories)) +
  geom_bar(width = 1, 
           stat = "identity") +
  geom_text(aes(label = data_label),
            position = position_stack(vjust = 0.5)) +
  coord_polar(theta = "y") + 
  theme_void()  

注意百分比加起来不等于 100%：17% + 25% + 39% + 18% = 99%。

有没有办法生成这些数据标签，即使四舍五入的百分比加起来也就是 100%？

我的 Excel 技巧

当我在 Excel 工作时，也会发生同样的问题。 当它这样做时，我只是创建一个带有四舍五入百分比的新列，然后，对于最后一个类别，我不使用ROUND() function，而是使用1 - SUM(...) ，如下所示：

.

这在 Excel 中效果很好，但我不太确定如何将此解决方案转换为 R。

Answer 1

我能够在另一个 SO 线程中找到一个很好的通用解决方案（如何使四舍五入的百分比加起来为 100% ）并在 R 中实现它。

该代码会生成一个名为percs_rounded的新列，该列的总和始终为 100%。

df = df %>% 
  mutate(
    percs_cumsum = round(cumsum(percs),2),
    percs_cumsum_off = replace_na(lag(percs_cumsum,1),0),
    percs_rounded = percs_cumsum - percs_cumsum_off)