When using geom_pointrange
the legend always displays vertical lines, even when the lines in the actual plot are horizontal. For example
ggplot(ToothGrowth,
aes(x = len, y = dose, xmin = len + 5, xmax = len - 5, color = supp)) +
geom_pointrange(position = position_dodge2(width = 1))
I would like to make the lines in the legend next to "OJ" and "VC" run horizontally to match the plot.