r饼图标签重叠ggplot2

Question

我正在尝试制作一个包含多个切片的饼图，其中许多切片的值都很低。问题是当我制作图表时，大多数标签相互重叠。

图形是这样的：

数据：

           Descripcion  Freq
               Sumarios   17
    Previsiones Legales   34
          Multas SICORE   19
           Multas ANSeS    7
            Multas AFIP    5
  Gastos Corresponsalía   22
      Faltantes de Caja  470
    Cargos Jubilaciones 2185
            ATM Fraudes   10
        ATM Diferencias  201

还有代码：

#armo el grafico
pmas <- ggplot(cant_masivos_trim, aes(x=1, y=Freq, fill=Descripcion)) +
        geom_bar(stat="identity") +
        ggtitle(paste("Cantidad de Reportes - Carga Masiva"))
pmas <- pmas + coord_polar(theta='y')
pmas <- ggplot(cant_masivos_trim, aes(x=1, Freq, fill=Descripcion)) +
        ggtitle(paste("Cantidad de Reportes - Carga Masiva")) +
        coord_polar(theta='y')
pmas <- pmas + geom_bar(stat="identity", color='black') + guides(fill=guide_legend

(override.aes=list(colour=NA)))
pmas <- pmas + theme(axis.ticks=element_blank(),  # the axis ticks
          axis.title=element_blank(),  # the axis labels
          axis.text.y=element_blank()) # the 0.75, 1.00, 1.25 labels.
y.breaks <- cumsum(cant_masivos_trim$Freq) - cant_masivos_trim$Freq/2
pmas <- pmas +
    # prettiness: make the labels black
    theme(axis.text.x=element_text(color='black')) +
    scale_y_continuous(
        breaks=y.breaks,   # where to place the labels
        labels= (paste(cant_masivos_trim$Freq, percent(cant_masivos_trim$Freq/sum (cant_masivos_trim$Freq)), sep='\n'))) # the labels

我尝试在这里找到解决方案，但没有运气。有人有想法吗？

Answer 1

这是使用ggrepel 的尝试。饼图的结果不是很漂亮，但我无法改进它。之后，我提供了另一种完全没有饼图的解决方案。

library(ggplot2)
library(tibble)
library(scales)
library(ggrepel)
library(forcats)

df <- tribble(
  ~Descripcion,  ~Freq,
   "Sumarios",   17,
   "Previsiones Legales",   34,
   "Multas SICORE",   19,
   "Multas ANSeS",    7,
   "Multas AFIP",    5,
   "Gastos Corresponsalía",   22,
   "Faltantes de Caja",  470,
   "Cargos Jubilaciones", 2185,
   "ATM Fraudes",   10,
   "ATM Diferencias",  201)

我将df$Descripcion更改为一个因子，并按df$Freq排序，使用forcats::fct_reorder。然后我改变了数据框中的顺序，这样定位标签的功能就可以正常工作了。

df$Descripcion <- fct_reorder(df$Descripcion, df$Freq)

df <- df[order(df$Freq, decreasing = TRUE), ]
df
# A tibble: 10 × 2
#               Descripcion  Freq
#                   <fctr> <dbl>
#  1               Sumarios    17
#  2    Previsiones Legales    34
#  3          Multas SICORE    19
#  4           Multas ANSeS     7
#  5            Multas AFIP     5
#  6  Gastos Corresponsalía    22
#  7      Faltantes de Caja   470
#  8    Cargos Jubilaciones  2185
#  9            ATM Fraudes    10
# 10        ATM Diferencias   201

然后我定义另一个数据框来放置标签。我选择了 x.break through 反复试验。

my_labels <- tibble(x.breaks = seq(1, 1.5, length.out = 10),
                    y.breaks = cumsum(df$Freq) - df$Freq/2,
                    labels = paste(df$Freq, percent(df$Freq/sum (df$Freq)), sep='\n'),
                    Descripcion = df$Descripcion)

然后是情节（请注意，我现在通过geom_label_repel() 添加标签时将theme(axis.x.text) 更改为element_blank()）

pmas <- ggplot(df, aes(x = 1, y = Freq, fill = Descripcion)) +
  ggtitle(paste("Cantidad de Reportes - Carga Masiva")) +
  geom_bar(stat="identity", color='black') + 
  coord_polar(theta='y') + 
  guides(fill=guide_legend(override.aes=list(colour=NA)))+ 
  theme(axis.ticks=element_blank(),  # the axis ticks
        axis.title=element_blank(),  # the axis labels
        axis.text.y=element_blank(), # the 0.75, 1.00, 1.25 labels.
        axis.text.x = element_blank(), 
        panel.grid = element_blank()) +
  scale_fill_brewer(palette = "Set3", direction = -1)+
  geom_label_repel(data = my_labels, aes(x = x.breaks, y = y.breaks, 
                                        label = labels, fill = Descripcion),
                   label.padding = unit(0.1, "lines"),
                   size = 2,
                   show.legend = FALSE,
                   inherit.aes = FALSE)

pmas

这是该图的另一个版本，您无需为标签提供另一个数据框。我选择将标签放在条形之前，但这取决于你。请注意expand_limits(y = -150) 以确保标签可见，并注意coord_flip() 以使标签更具可读性。我还使用geom_col() 代替geom_bar(stat = "identity")。

pmas2 <- ggplot(data = df, aes(x = Descripcion, y = Freq)) +
  geom_col(aes(fill = Descripcion) , show.legend = FALSE) +
  ggtitle(paste("Cantidad de Reportes - Carga Masiva")) +
  coord_flip() +
  geom_label(aes(label = paste(df$Freq, percent(df$Freq/sum(df$Freq)), sep = "\n"),
                y = -150, fill = Descripcion),
             show.legend = FALSE,
             size = 3, label.padding = unit(0.1, "lines")) +
  expand_limits(y = -150) +
  scale_fill_brewer(palette = "Set3", direction = -1) 

pmas2