ggplot2 remove legend removes annotations

TibialCuriosity

I am creating a plot with a 2nd y axis to note categories of fitness. I've gotten the categories and labels using hline and annotate. I have specified a fill to the box plot which produces a legend. This legend than covers the annotations, but removing the legend also removes all annotation. Is there a way to remove only the annotation. See code below:

Without legend:

fmsft <- ggplot(Fboxm, aes(test, count))

fmsft + geom_boxplot(aes(fill = test), show.legend = FALSE) + 
  labs(x="Test", y=expression("Estimated VO"["2Max"])) + 
  geom_hline(yintercept = 23.9, size = 1.3) + 
  annotate("text", label = "Very Poor",
           x = 7, y = 23.9) +
  coord_cartesian(xlim = c(0,6), clip = "off") +
  geom_hline(yintercept = 28.6, size = 1.3) + 
  annotate("text", label = "Poor",
           x = 7, y = 28.6) +
  geom_hline(yintercept = 34.6, size = 1.3) + 
  annotate("text", label = "Fair",
           x = 7, y = 34.6) +
  geom_hline(yintercept = 40.6, size = 1.3) + 
  annotate("text", label = "Good",
           x = 7, y = 40.6) +
  geom_hline(yintercept = 46.5, size = 1.3) + 
  annotate("text", label = "Excellent",
           x = 7, y = 46.5) +
  geom_hline(yintercept = 56, size = 1.3) +
  annotate("text", label = "Superior",
         x = 7, y = 56)

With legend:

fmsft <- ggplot(Fboxm, aes(test, count))

fmsft + geom_boxplot(aes(fill = test)) + 
  labs(x="Test", y=expression("Estimated VO"["2Max"])) + 
  geom_hline(yintercept = 23.9, size = 1.3) + 
  annotate("text", label = "Very Poor",
           x = 7, y = 23.9) +
  coord_cartesian(xlim = c(0,6), clip = "off") +
  geom_hline(yintercept = 28.6, size = 1.3) + 
  annotate("text", label = "Poor",
           x = 7, y = 28.6) +
  geom_hline(yintercept = 34.6, size = 1.3) + 
  annotate("text", label = "Fair",
           x = 7, y = 34.6) +
  geom_hline(yintercept = 40.6, size = 1.3) + 
  annotate("text", label = "Good",
           x = 7, y = 40.6) +
  geom_hline(yintercept = 46.5, size = 1.3) + 
  annotate("text", label = "Excellent",
           x = 7, y = 46.5) +
  geom_hline(yintercept = 56, size = 1.3) +
  annotate("text", label = "Superior",
         x = 7, y = 56)

Thanks in advance!

r2evans

Add theme(plot.margin = unit(..., "cm")) to adjust the right margin.

Demonstration using mtcars.

library(ggplot2)
gg <- ggplot(mtcars, aes(disp, mpg)) +
  geom_point() +
  coord_cartesian(xlim = c(0, 480), clip = "off") +
  annotate("text", label = "quuxbar", x = 540, y = 20)
gg

gg + theme(plot.margin = unit(c(0.2, 2, 0.2, 0.2), "cm"))

FYI, the defaults:

theme_get()$plot.margin
# [1] 5.5points 5.5points 5.5points 5.5points

Collected from the Internet

Please contact [email protected] to delete if infringement.

edited at2021-12-4

Comments

0 comments

ggplot2 remove legend removes annotations

ggplot2 remove legend removes annotations

Loopback Error: connect ECONNREFUSED 127.0.0.1:3306 (MAMP)

Can't pre-populate phone number and message body in SMS link on iPhones when SMS app is not running in the background

pump.io port in URL

How to import an asset in swift using Bundle.main.path() in a react-native native module

Failed to listen on localhost:8000 (reason: Cannot assign requested address)

Spring Boot JPA PostgreSQL Web App - Internal Authentication Error

Emulator wrong screen resolution in Android Studio 1.3

3D Touch Peek Swipe Like Mail

Double spacing in rmarkdown pdf

Svchost high CPU from Microsoft.BingWeather app errors

How to how increase/decrease compared to adjacent cell

Using Response.Redirect with Friendly URLS in ASP.NET

java.lang.NullPointerException: Cannot read the array length because "<local3>" is null

BigQuery - concatenate ignoring NULL

How to fix "pickle_module.load(f, **pickle_load_args) _pickle.UnpicklingError: invalid load key, '<'" using YOLOv3?

ngClass error (Can't bind ngClass since it isn't a known property of div) in Angular 11.0.3

Can a 32-bit antivirus program protect you from 64-bit threats

Make a B+ Tree concurrent thread safe

Bootstrap 5 Static Modal Still Closes when I Click Outside

Vector input in shiny R and then use it

Assembly definition can't resolve namespaces from external packages