library(ggplot2)
df = data.frame(x=1:20, y=rnorm(20), center=0, low= -1, high=1, calibrate=c(rep(T,10), rep(F,10)))
ggplot(df, aes(x, y, linetype=calibrate)) +
geom_line(aes(y=center), color="green") +
geom_line(aes(y=low), color="red") +
geom_line(aes(y=high), color="red") +
scale_linetype_manual(breaks=c(TRUE, FALSE), values=c("solid", "longdash")) +
geom_point()