Hello,
Is there a way to place these two legends side by side as opposed to on top of one another? I want this figure to have the legends Temperature and TP right next to each other.
And here is my code. Unfortunately it's not reproducible as the Lake Michigan outline is a shapefile.
tptemp <- ggplot() +
geom_sf(data=lm, fill="white") +
geom_sf(data=sfo, aes(color=Temp, size=TP)) +
scale_color_gradient(low="blue", high="red") +
theme(axis.text.x = element_blank(), # remove x-axis text
axis.text.y = element_blank(), # remove y-axis text
axis.ticks = element_blank(), # remove axis ticks
axis.title.x = element_text(size=18), # remove x-axis labels
axis.title.y = element_text(size=18), # remove y-axis labels
panel.background = element_blank(),
panel.grid.major = element_blank(), #remove major-grid labels
panel.grid.minor = element_blank(), #remove minor-grid labels
plot.background = element_blank()) +
ggspatial::annotation_north_arrow(
location = "tl", which_north = "true",
style = ggspatial::north_arrow_nautical(fill = c("grey40", "white"),
line_col = "grey20")) +
ggspatial::annotation_scale(
location = "br",
bar_cols = c("grey60", "white")) +
#geom_sf_label_repel(data=sf,
#aes(label = Station), size=3,
#force = 150,
#label.padding = 0.2) +
labs(color = 'Temperature (°C)',
size = bquote('TP µg'~L^-1),
x=NULL,
y=NULL) +
scale_size_continuous(limits=c(2,11))
Can something be added on or altered to achieve what I want?
Thanks so much!