library(tidyverse)
set.seed(5L)
dat <- tibble(year = 1:5, x = rnorm(5L), y = - rnorm(5L)) %>%
mutate(z = x + y)
ggplot(dat) +
geom_bar(aes(year, x, fill = "Exports"), stat = "identity") +
geom_bar(aes(year, y, fill = "Imports"), stat = "identity") +
geom_line(aes(year, z) , size = 1.2, color = "firebrick4") +
geom_point(aes(year, z, fill = "Trade Balance"), size = 2, color = "firebrick4") +
theme(axis.ticks.x = element_line(colour = "black", size = 1),
axis.ticks.y = element_line(colour = "black", size = 1),
axis.ticks.length = unit(.25, "cm"),
axis.text = element_text(colour = "black", size = 10),
axis.title = element_blank(),
panel.background = element_rect(fill = "transparent"),
panel.grid = element_blank(),
legend.position= "top") +
scale_fill_manual(name = "",
values = c("Exports" = "deepskyblue3",
"Imports" = "lightskyblue3",
"Trade Balance" = "firebrick4"),
guide = guide_legend(override.aes = aes(colour = NA)))
I want to show the Trade Balance in the legend as line with dots.
Thanks