diff --git a/R/guide-legend.R b/R/guide-legend.R index 6378300c6d..0f8b90d127 100644 --- a/R/guide-legend.R +++ b/R/guide-legend.R @@ -89,6 +89,12 @@ #' # override.aes overwrites the alpha #' p3 + guides(colour = guide_legend(override.aes = list(alpha = 1))) #' +#' # omit legend items +#' p4 <- ggplot(mtcars, aes(wt, mpg, colour = factor(cyl))) + +#' geom_point() +#' p4 +#' p4 + scale_color_discrete(breaks = c(4, 8)) +#' #' # multiple row/col legends #' df <- data.frame(x = 1:20, y = 1:20, color = letters[1:20]) #' p <- ggplot(df, aes(x, y)) + diff --git a/man/guide_legend.Rd b/man/guide_legend.Rd index e56efb0aff..2001b171cf 100644 --- a/man/guide_legend.Rd +++ b/man/guide_legend.Rd @@ -114,6 +114,12 @@ p3 # override.aes overwrites the alpha p3 + guides(colour = guide_legend(override.aes = list(alpha = 1))) +# omit legend items +p4 <- ggplot(mtcars, aes(wt, mpg, colour = factor(cyl))) + + geom_point() +p4 +p4 + scale_color_discrete(breaks = c(4, 8)) + # multiple row/col legends df <- data.frame(x = 1:20, y = 1:20, color = letters[1:20]) p <- ggplot(df, aes(x, y)) +