Remove one legend key from a plot in ggplot2

Asked Dec 05 '17 at 13:31

Active Dec 05 '17 at 13:31

Viewed 349 times

To separate two groups of bar plot, I followed the method by How to control space between stack bars in ggplot2? The main idea is making a dummy raw but shows NA label on x-axis. The code I'm using:

Df %>% 
  bind_rows(data_frame(var1 = "trt99")) %>% 
  ggplot(aes(x=var1, y=value*100, fill = var3)) +

  geom_bar(stat='identity', width=0.3,
       position = position_dodge(width=1))+

  scale_x_discrete(expand=c(0.05,0),
                limits = c("Rho(-)", "Rho(+)", "trt99", "Artemia", "Aca(-)", "Aca(+)"),
                breaks = c("Rho(-)", "Rho(+)",    NA  , "Artemia", "Aca(-)", "Aca(+)"),
                labels = c("Rho(-)", "Rho(+)",     " ", "Artemia", "Aca(-)", "Aca(+)"))+

  theme(panel.border = element_blank(),
          legend.position = c(0.2,0.9))

And I get the figure like:

My question is: How can I remove the NA legend key from this plot?

asked Dec 05 '17 at 13:31

Jellz

perhaps you can remove the NA from the data itself. – mnm Dec 05 '17 at 13:37
`+scale_colour_discrete(breaks = c("Phytoplankton", "Zooplanlton"), labels = c("Phytoplankton", "Zooplanlton"))` – J_F Dec 05 '17 at 13:47
@J_F `scale_fill_discrete` instead of `scale_colour_discrete` ? – bVa Dec 05 '17 at 13:57
@J_F, Thank you very much! I used `scale_fill_discrete(breaks = c("Phytoplankton", "Zooplankton"), labels = c("Phytoplankton", "Zooplankton"))`, it works! – Jellz Dec 05 '17 at 13:58
@bVa you are of course right! – J_F Dec 05 '17 at 13:58
@Ashish, bVa, Andre Elrico, thank you all! – Jellz Dec 05 '17 at 14:04

Remove one legend key from a plot in ggplot2

0 Answers0