Таможенная базовая сущность в Symfony 4

Вариант ответа Didzis , я бы сделал отдельный кадр данных для сводных данных, которые вы хотите отобразить на один грань.

library("plyr")
cns.annotate <- ddply(cns, .(Name), summarize, y.int=mean(Days[Type=="Completed"]))

затем передать этот кадр данных to geom_hline.

qplot(Date, data=cns, 
      geom="bar", binwidth = 1, 
      fill=Type, facets = Name ~ .) +
  geom_hline(data=cns.annotate, aes(yintercept=y.int))

или в ggplot, а не в синтаксисе qplot:

ggplot(cns, aes(x=Date)) +
  geom_bar(aes(fill=Type), binwidth=1) +
  geom_hline(data=cns.annotate, aes(yintercept=y.int)) +
  facet_grid(Name ~ .)