Move legend to right side

Move the legends in a patchwork object to the right hand side of the plots

Usage

ThemeLegendRight()

Value

A theme object

Examples

library(semla)

se_mbrain <- readRDS(system.file("extdata/mousebrain", 
                                 "se_mbrain", 
                                 package = "semla"))
                                 
# With MapFeatures
MapFeatures(se_mbrain, c("nFeature_Spatial", "nCount_Spatial")) &
   ThemeLegendRight()