Remove Certain Legend Variables and Legend Values from Ggplot2

remove certain legend variables and legend values from ggplot2?

1. As commented by joran, use scale_size(guide = "none").

2. scale_color_discrete(breaks="setosa")

Hide some legend entries in ggplot

As is quite often the case you first have to convert both of your datasets to long or tidy format using e.g. tidyr::pivot_longer which will result in a new column with the variable names as categories which could then be mapped on the color aes. Doing so will automatically create a legend and also allows to simplify your code. And if you want only the lines to appear in the legend then you could add show.legend=FALSE to geom_point. Finally you can set your desired colors via scale_color_manual.

As you provided only one dataset I used this for both datasets which however shouldn't matter. Also, to make my life a bit easier I have put the datasets in an named list:

library(dplyr, warn = FALSE)
library(tidyr)
library(ggplot2)

data_list <- list(data = Hydro_dates_wellData_2014_2018, sim = TS_SimHeads_HOBS_final) %>%
  lapply(function(x) {
      x %>%
      select(Date, BH2672, BH3025) %>%
      mutate(Date = as.Date(Date)) %>%
      tidyr::pivot_longer(-Date)
  })

ggplot() + 
  geom_line(data=data_list$sim, aes(x=Date, y=value, color = name)) +
  geom_point(data=data_list$data, aes(x=Date, y=value, color = name), show.legend = FALSE) +
  scale_color_manual(values = c(BH2672 = "red", BH3025 = "green")) +
  labs(x = "Date", y = "Head")

DATA

TS_SimHeads_HOBS_final <- structure(list(Date = c(
  "2014-02-19", "2014-02-20", "2014-02-21",
  "2014-02-22", "2014-02-23", "2014-02-24"
), BH2672 = c(
  31.284,
  30.76656, 30.43226, 30.16532, 29.93577, 29.73162
), BH278 = c(
  78.86755,
  78.87344, 78.88097, 78.88979, 78.89954, 78.90991
), BH2978 = c(
  5.671027,
  5.65694, 5.642136, 5.643818, 5.650873, 5.658991
), BH2987 = c(
  39.48419,
  39.49012, 39.49902, 39.51101, 39.52544, 39.54147
), BH3025 = c(
  53.60201,
  53.56489, 53.56041, 53.56065, 53.5597, 53.55682
), BH312 = c(
  44.29516,
  44.50679, 44.65761, 44.78333, 44.89429, 44.9952
), BH3963 = c(
  69.23685,
  69.5091, 69.65709, 69.75621, 69.82983, 69.88845
), BH3962 = c(
  61.70843,
  61.70638, 61.70126, 61.69643, 61.69332, 61.69236
), BH3957 = c(
  56.13871,
  56.09621, 56.04346, 55.99459, 55.95241, 55.91639
)), class = "data.frame", row.names = c(
  NA,
  -6L
))

Hydro_dates_wellData_2014_2018 <- TS_SimHeads_HOBS_final

Remove legend in ggplot

I couldn't run your code, but I rebuilt it with iris.

Like Matt suggested, one thing would be, remove fill=F:

ggplot(data=iris, aes(x = SepalLength , y = PetalLength, group=Name)) +
  geom_point() +
  geom_line() +
  stat_smooth(method = "loess",se = T, aes(color=Name)) +
  geom_ribbon(aes(ymin = 1, ymax = 3),alpha = 1/5) +
  scale_x_continuous(breaks = 0:2, labels = c(0, 6, 12)) 

Or if you need it for some reason, use guides(fill="none"):

ggplot(data=iris, aes(x = SepalLength , y = PetalLength, group=Name)) +
  geom_point() +
  geom_line() +
  stat_smooth(method = "loess",se = T, aes(color=Name)) +
  geom_ribbon(aes(ymin = 1, ymax = 3, fill=FALSE),alpha = 1/5) +
  scale_x_continuous(breaks = 0:2, labels = c(0, 6, 12)) +
  guides(fill="none")

Output:

Turning off some legends in a ggplot

You can use guide = "none" in scale_..._...() to suppress legend.

For your example you should use scale_colour_continuous() because length is continuous variable (not discrete).

(p3 <- ggplot(mov, aes(year, rating, colour = length, shape = mpaa)) +
   scale_colour_continuous(guide = "none") +
   geom_point()
)

Or using function guides() you should set "none" for that element/aesthetic that you don't want to appear as legend, for example, fill, shape, colour.

p0 <- ggplot(mov, aes(year, rating, colour = length, shape = mpaa)) +
  geom_point()    
p0+guides(colour = "none")

UPDATE

Both provided solutions work in new ggplot2 version 3.3.5 but movies dataset is no longer present in this library. Instead you have to use new package ggplot2movies to check those solutions.

library(ggplot2movies)
data(movies)
mov <- subset(movies, length != "")

R: ggplot2 removing some legend entries

You can try subsetting the data set by the variable name and plotting them separately.

p <- ggplot(df, aes(x = time, y = value, color = variable, 
                    group = variable, size = variable, linetype = variable)) +  
  geom_line(data=df[which(substr(df$variable,1,1)=='y'),])+   
  scale_linetype_manual(values = c(2, 2)) + scale_size_manual(values = c(2, 2)) + 
  scale_color_manual(values = c("red", "green")) + 
  theme_minimal() + 
  geom_line(data=df[which(substr(df$variable,1,1)=='x'),],
            aes(x = time, y = value, group = variable),
            color="grey",size=0.3,linetype=1)
# Plot elements that have attributes set outside of aes() will
# not appear on legend!

---

Related Topics