rotating a ggplot obect

rotate_ggplot.R

library(tidyverse)
library(grid)

raw <- tibble(x = letters[1:5], y = x)
filter <- function(x, y) x <= y
data_tri <- purrr::cross_df(raw,.filter = filter) %>% mutate(val = rnorm(length(.$x)))

plot_tri <- ggplot(data = data_tri, aes(x = x, y = y, fill = val)) +
  coord_equal()+
  geom_tile() +
  theme_void() +
  theme(legend.position = 'none')

data_box <- tibble(x = rep(letters[1:5], each = 5 ), y = rep((1:5)/5, each = 5)+rnorm(25))
plot_box <- ggplot(data = data_box, aes(x=x,y=y))+
  geom_boxplot()

plot_tri_grob <- ggplotGrob(plot_tri)
plot_tri_rot <- editGrob(plot_tri_grob, vp=viewport(x=0.5, y=0.75, angle=-45,width = .7), name="tri")

cowplot::ggdraw(plot_tri_rot)+
  cowplot::draw_plot(plot_box,0,.04,.45,.21)