r - 位置 = 'fill' 的 Geom_bar，hlines 表示平均值

Question

我正在尝试绘制一个图表，显示每个月两个客户组（1-5 和 6-8）授予贷款的相对百分比。我是这样做的：

df <- data.frame(time=rep(seq.Date(as.Date('2015-01-01'),as.Date('2018-01-01'), by='month'),2),
                 key = c(rep('1-5',37),rep('6-8',37)), value = c(round(rnorm(37,400,20)),round(rnorm(23,100,10)),
                                                                 round(rnorm(14,250,10))))


ggplot(df,aes(x=time,y=value,fill=key))+
  geom_bar(stat = "identity",position = "fill")+
  geom_vline(xintercept = as.numeric(as.Date('2016-12-01')), size=1)

结果

我想要包括 2017 年之前和之后 6-8 组的平均百分比，类似这样。

标签： rggplot2geom-bar

Answer 1

您想预先计算关键日期之前和之后的平均值，然后将它们添加到绘图中。像这样的东西：

library(ggplot2)
library(dplyr)
library(tidyr)

df <-
  data.frame(
    time = rep(seq.Date(
      as.Date('2015-01-01'), as.Date('2018-01-01'), by = 'month'
    ), 2),
    key = c(rep('1-5', 37), rep('6-8', 37)),
    value = c(round(rnorm(37, 400, 20)), round(rnorm(23, 100, 10)),
              round(rnorm(14, 250, 10)))
  )

# calculate the percents
(
  dd <- df %>% 
    spread(key, value) %>% 
    mutate(f15=`1-5`/(`1-5`+`6-8`)) %>% 
    mutate(f68=1-f15)
)

# get averages for before and after 2016-12-01
(
  mnp <- dd %>% 
    mutate(ba=ifelse(time > as.Date('2016-12-01'), "after", "before")) %>% 
    group_by(ba) %>% 
    mutate(mnp=mean(f68))
)

# add to plot  
ggplot(df, aes(x = time, y = value, fill = key)) +
  geom_bar(stat = "identity", position = "fill") +
  geom_vline(xintercept = as.numeric(as.Date('2016-12-01')), size = 1) +
  geom_point(data=mnp, aes(x=time, y=mnp), pch="-", size=5, inherit.aes = FALSE, color="blue")

应该制作这个情节：