Vertically align two legend groups about ggnewscale HOT 6 CLOSED

Hi! That's just "base" ggplot. You need to use + theme(legend.position="top"). See here: http://www.cookbook-r.com/Graphs/Legends_(ggplot2)/

from ggnewscale.

Yes this is to position them on top of the plot which does work but my two legends align horizontally and I'd like them to align vertically.

from ggnewscale.

Yes, you need to put guide = guide_legend(direction = "horizontal") into the scale_fill_continuous (or whatever scale you use) call.

from ggnewscale.

I use guide = guide_legend(direction = "horizontal") for both guides so that they are laying horizontally but I can't manage to place them pn top of each other. Sorry I don't have a reproducible example at the moment but I'll post one if I don't figure out the issue.

from ggnewscale.

Hi, sorry to bother agsin but here's an example of my problem:

topography <- expand.grid(x = 1:nrow(volcano),
                          y = 1:ncol(volcano))

topography$z <- c(volcano)

measurements <- data.frame(x = runif(30, 1, 80),
                           y = runif(30, 1, 60),
                           thing = rnorm(30))

guide1 <- guide_legend(direction = "horizontal",
                       order = 1)
guide2 <- guide_legend(direction = "horizontal",
                       order = 2)

ggplot(mapping = aes(x, y)) +
  geom_contour(data = topography, aes(z = z, color = stat(level))) +
  scale_color_viridis_c(option = "D", guide = guide1) +
  new_scale_color() +
  geom_point(data = measurements, size = 3, aes(color = thing)) +
  scale_color_viridis_c(option = "A", guide = guide2) +
  theme_bw() +
  theme(legend.position = "top")

Basically I would like the legend of thing to be placed under the legend of level on top of the plot.

Besides I also wonder why the legend items lose their gradient style for lines and points when adding specific guide_legend() for each legend group.
Thanks

from ggnewscale.

Per this question maybe using legend.box = "vertical" does the trick:

library(ggplot2)
library(ggnewscale)

topography <- expand.grid(x = 1:nrow(volcano),
                          y = 1:ncol(volcano))

topography$z <- c(volcano)

measurements <- data.frame(x = runif(30, 1, 80),
                           y = runif(30, 1, 60),
                           thing = rnorm(30))

guide1 <- guide_legend(direction = "horizontal",
                       order = 1)
guide2 <- guide_legend(direction = "horizontal",
                       order = 2)

ggplot(mapping = aes(x, y)) +
  geom_contour(data = topography, aes(z = z, color = stat(level))) +
  scale_color_viridis_c(option = "D", guide = guide1) +
  new_scale_color() +
  geom_point(data = measurements, size = 3, aes(color = thing)) +
  scale_color_viridis_c(option = "A", guide = guide2) +
  theme_bw() +
  theme(legend.position = "top", legend.box = "vertical")

^{Created on 2020-01-19 by the reprex package (v0.3.0)}

I believe, though, that these questions are better suited for stackoverflow because they are questions about use and options of ggplot2, not bugs or problems present in the ggnewscale package. Furthermore, posting them there allows for greater exposure so that other people with similar problems can find them. I encourage you to post there.

from ggnewscale.