Removing the border of legend symbol

by

I think geom_ribbon was the problem. If we take its color & fill out of aes, everything looks fine

library(ggplot2)

# Some random data
x <- seq(1: 10)
y_pred <- runif(10, min = -10, max = 10)
y_obs <- y_pred + rnorm(10)
# Faking a CI
Lo.95 <- y_pred - 1.96
Hi.95 <- y_pred + 1.96
my_df <- data.frame(x, y_pred, y_obs, Lo.95, Hi.95)

m1 <- ggplot(my_df, aes(x = x, y = y_pred)) +
  geom_point(aes(x = x, y = y_obs, colour = "Actual"), size = 3) +
  geom_line(aes(colour = "Forecasted"), size = 1.2) +
  geom_ribbon(aes(x = x, ymin = Lo.95, ymax = Hi.95), 
              fill = "grey30", alpha = 0.2) +
  scale_color_manual("Legend", 
                     values = c("blue", "red"),
                     labels = c("Actual", "Forecasted")) +
  guides( color = guide_legend(
    order = 1,
    override.aes = list(
                        color = c("blue", "red"),
                        fill  = c("white", "white"),
                        linetype = c("blank", "solid"),
                        shape = c(19, NA)))) +
  theme_bw() +
  # remove legend key border color & background
  theme(legend.key = element_rect(colour = NA, fill = NA),
    legend.box.background = element_blank())
m1

As we leave Confidence Interval out of aes, we no longer have its legend. One workaround is to create an invisible point and take one unused geom to manually create a legend key. Here we can use size/shape (credit to this answer) 

m2 <- m1 +
  geom_point(aes(x = x, y = y_obs, size = "Confidence Interval", shape = NA)) +
  guides(size = guide_legend(NULL, 
                             order = 2,
                             override.aes = list(shape = 15, 
                                                 color = "lightgrey",
                                                 size = 6))) +
  # Move legends closer to each other
  theme(legend.title = element_blank(),
        legend.justification = "center",
        legend.spacing.y = unit(0.05, "cm"),
        legend.margin = margin(0, 0, 0, 0),
        legend.box.margin = margin(0, 0, 0, 0)) 
m2

Created on 2018-03-19 by the reprex package (v0.2.0).

More Related Contents:

  1. Position geom_text on dodged barplot
  2. Save multiple ggplots using a for loop
  3. Plotting contours on an irregular grid
  4. How to merge color, line style and shape legends in ggplot
  5. ggplot2 keep unused levels barplot
  6. geom_bar bars not displaying when specifying ylim
  7. R stacked percentage bar plot with percentage of binary factor and labels (with ggplot)
  8. How to order data by value within ggplot facets
  9. plotting smooth line through all data points
  10. ggplot2 geom_bar – how to keep order of data.frame [duplicate]
  11. Extract data from a ggplot
  12. Subset and ggplot2
  13. ggplot2: Curly braces on an axis?
  14. Changing whisker definition in geom_boxplot
  15. Fill and border colour in geom_point (scale_colour_manual) in ggplot
  16. cut function in R- labeling without scientific notations for use in ggplot2
  17. R ggplot2 merge with shapefile and csv data to fill polygons
  18. pass function arguments to both dplyr and ggplot
  19. Show frequencies along with barplot in ggplot2
  20. ggplot2 does not appear to work when inside a function R [duplicate]
  21. Removing one tableGrob when applied to a box plot with a facet_wrap
  22. How to make geom_text plot within the canvas’s bounds
  23. Saving grid.arrange() plot to file
  24. How to plot a Stacked and grouped bar chart in ggplot?
  25. Set the plot title to wrap around and shrink the text to fit the plot
  26. Overlay two ggplot2 stat_density2d plots with alpha channels
  27. Sort legend in ggplot2
  28. ggplot: Boxplot of multiple column values [duplicate]
  29. SI prefixes in ggplot2 axis labels
  30. Administrative regions map of a country with ggmap and ggplot2

Leave a Comment