Theme option to align the legend to the plot instead of the panel about ggplot2 HOT 2 CLOSED

library(tidyverse)

diamonds |> 
  dplyr::count(cut, color) |> 
  ggplot(aes(n, cut, fill = color)) + 
  geom_col(position = "fill") + 
  labs(title = "Diamonds by Color and Cut",
       subtitle = "An example chart",
       fill = NULL, y = NULL, x = NULL) + 
  guides(fill = guide_legend(reverse = TRUE, nrow = 1)) + 
  ggthemes::theme_hc() + 
  theme(plot.title.position = "plot",
        legend.direction = "horizontal",
        legend.position = "top",
        legend.justification = "left", 
        legend.location = "plot")