Add common legend for geom_hline in facet_grid

[jarjarbinks]

Hi, I'm new to R so I'm not sure if I'm doing this correctly.

I have already added a geom_hline for each facet_grid using the following code:

y = ggplot(dat, aes(x, y)) +
  theme_classic() +
  geom_boxplot(aes(fill=group)) + facet_rep_grid(.~group, scales = 'free', ) +
 scale_fill_manual(values=color_scheme)

p1 = y +
  geom_hline(aes(yintercept=healthy.baseline.mean, linetype="Line 1"),
             linetype='dotted', color='red', show.legend = TRUE)

But the legend for the geom_hline looks something like this:

Looks like the geom_hline for each panel in the facet_grid was supperimposed to the boxplot legend.
How can I make a separate legend for the geom_hline such that I have five boxplot legend and 1 red-dotted legend for the geom_hline?

P.S. The geom_hline is the same for all panel because it represents the mean across data group.

Thanks!

[M_AcostaCH]

Hi @jarjarbinks , try to put a reproducible example of the data, this is better way for undestand well the situation and the community could help you.

Sometimes like this:

FAQ: What's a reproducible example (`reprex`) and how do I create one?

Why reprex? Getting unstuck is hard. Your first step here is usually to create a reprex, or reproducible example. The goal of a reprex is to package your code, and information about your problem so that others can run it and feel your pain. Then, hopefully, folks can more easily provide a solution. What's in a Reproducible Example? Parts of a reproducible example: background information - Describe what you are trying to do. What have you already done? complete set up - include any library() calls and data to reproduce your issue. data for a reprex: Here's a discussion on setting up data for a reprex make it run - include the minimal code required to reproduce your error on the data…

Paste the result of dput(dat[1:30 , ] For share the first 30 rows and all columns.

[jarjarbinks]

Hi @M_AcostaCH

For context, I have a dataframe df containing columns namely treatment, group and index.
Basically, I drew a boxplot for each treatment and their index using facet_grid wherein each panel is separated by group.

Aside from the boxplot, I would also want to have a line plot that would indicate the baseline mean across all groups. What I did was to add a red, dotted geom_hlineon top off the geom_boxplot.

When I tried put a common legend, each boxplot legend has the red, dotted line on top of it as shown in this figure. What I would want hopefully is to have a separate red, dotted line legend.

Here's the following code:

y = ggplot(df, aes(treatment, index)) +
  theme_classic() + labs(x = '', y = 'Index') +
  geom_boxplot(aes(fill=group)) + facet_rep_grid(.~group, scales = 'free', ) +
  scale_y_continuous(breaks = c(0, 0.25, 0.5, 0.75, round(baseline_mean,2), 1),
                     limits = c(0,1)) +
  scale_fill_manual(values=color_scheme) +
  geom_hline(aes(yintercept = baseline_mean, color = "U"), linetype='dotted', color='red') +
  scale_color_manual(values="red")+
  theme(legend.position="none",
        strip.background = element_blank(),
        strip.text.x = element_blank(),
        axis.line.y = element_line(colour = 'black',
                                   size=0.5,
                                   linetype='solid'),
        axis.text.y = element_text(color = c("black", "black", "black", "black", "red", "black")) ## To color the y-tick of the baseline
  )

Hopefully I made the problem very clear. Thank you.