Упростить вложенные циклы, содержащие внешние переменные

Вы можете создать новый столбец в вашем кадре данных, который содержит среднее значение. Я назвал его как y.int и вычислил с помощью функции ddply() из библиотеки plyr. Здесь среднее значение, рассчитанное только для значений, где Type равно Completed (поскольку Requested следует исключить).

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

Теперь используйте geom_hline() и новый столбец, чтобы добавить линии к каждой грани .

plot + geom_hline(aes(yintercept=y.int))