r - Add geom_hline legend to existing geom bar legend -
i want add legend under existing legend represents dashed line, such dashed line labeled "avg tx effect" , placed under study 3. library(ggplot2) library(ggthemes) #dput(df) df=structure(list(study = structure(c(1l, 2l, 3l, 1l, 2l, 3l, 1l, 2l, 3l, 1l, 2l, 3l, 1l, 2l, 3l), .label = c("study1", "study2", "study3"), class = "factor"), d = c(-0.205, 0.1075, 0.3525, -0.37, 0.3, 0.42, -0.28, 0.09, 0.59, 0.11, -0.05, 0.25, 0, 0.25, 0.49 ), outcome = c(1l, 1l, 1l, 2l, 2l, 2l, 3l, 3l, 3l, 4l, 4l, 4l, 5l, 5l, 5l), outcome2 = structure(c(1l, 1l, 1l, 4l, 4l, 4l, 7l, 7l, 7l, 10l, 10l, 10l, 13l, 13l, 13l), .label = c("1", "1", "1", "2", "2", "2", "3", "3", "3", "4", "4", "4", "5", "5", "5"), class = "factor")), .names = c("study", "d", "outcome",