Как добавить счетчик сверху баров и процент заполнения внутри баров? - PullRequest
Новая
       48

Как добавить счетчик сверху баров и процент заполнения внутри баров?

0 голосов
/ 21 апреля 2019

У меня есть некоторые данные, в которых каждое наблюдение содержит 2 фактора, классы (буква между A и E) и флаг (0 или 1).После применения group_by (классы, флаг) и суммирования (частота = n ()) я получаю кадр данных, похожий на этот: 

classes <-as.factor(c("A", "A", "B", "B", "C", "C", "D", "D", "E", "E"))
    flag <- as.factor(rep(c(0,1),10))
    quantity <- c(856, 569, 463, 125, 795, 313, 1000, 457, 669, 201)
    df <- data.frame(classes, flag, quantity)

Мне удалось получить нужный мне график (упорядоченныйбары, по одному на каждый уровень классов, каждый столбец заполнен пропорцией флага) с этим кодом: 

    ggplot(df, aes(x = reorder(classes, -quantity), y = quantity)) +
      geom_bar(aes(fill = as.factor(flag)), stat="identity") +
      theme(axis.text.x=element_text(angle = 90, hjust = 1)) +
      labs(x = NULL, y = "Quantity", fill = "flag") +
      scale_fill_manual(values=c("firebrick","dodgerblue4"), 
      labels=c("1"="Yes","0"="No"))+
      theme(axis.ticks = element_blank())

Однако я не уверен, как использовать geom_text () для включения общего количествав верхней части каждого столбца и пропорции значения заполнения внутри столбцов.

Спасибо за помощь!

1 Ответ

1 голос
/ 21 апреля 2019

Я не знаю, как это автоматизировать, возможно, проще всего рассчитать пропорции и суммы вне графика.

Проще переупорядочить классы вне графика, чтобы ваш текст мог брать уровни факторов. 

df$x <- reorder(df$classes, -df$quantity)

Далее вы можете рассчитать статистику, которую вы хотите. Ниже я предположил, что если мы разделим df по классам, это всегда будет порядок flag = 0, flag = 1, поэтому мы можем взять x[2]/x[1] как пропорцию. 

text_df <- data.frame(
  class = sapply(split(df$classes,  df$classes), unique),
  sum   = sapply(split(df$quantity, df$classes), sum),
  prop  = sapply(split(df$quantity, df$classes), function(x){x[2]/(x[1]+x[2])})
)

Тогда мы позволим text_df$class принять тот же порядок, что и df$x. 

text_df$class <- factor(text_df$class, levels = levels(df$x))

Затем мы сделаем график похожим на ваш пример, помните, что мы переупорядочили переменную x ранее: 

ggplot(df, aes(x = x, y = quantity)) +
  geom_bar(aes(fill = as.factor(flag)), stat="identity") +
  theme(axis.text.x=element_text(angle = 90, hjust = 1)) +
  labs(x = NULL, y = "Quantity", fill = "flag") +
  scale_fill_manual(values=c("firebrick","dodgerblue4"), 
                    labels=c("1"="Yes","0"="No"))+
  theme(axis.ticks = element_blank())

И добавьте два geoms для текста, один для пропорции, один для суммы; оба со смещением по оси Y. 

 +geom_text(data = text_df, 
            aes(x = class, 
                y = sum + 100, # some offset
                label = sum)) +
  geom_text(data = text_df,
            aes(x = class, 
                y = sum - 100, # opposite offset
                label = scales::percent(prop)))

И я думаю, что сработало. Удачи!

...