diff --git a/R/themes.R b/R/themes.R index 103897b..909adcd 100644 --- a/R/themes.R +++ b/R/themes.R @@ -158,10 +158,10 @@ theme_blank <- function( legend.margin = margin(0, 0, 0, 0), legend.key.size = grid::unit(10, "pt"), plot.margin = margin( - lab_size + 2, - lab_size + 2, - lab_size + 2, - lab_size + 2, + lab_size + 10, + lab_size + 10, + lab_size + 10, + lab_size + 10, unit = "points" ) ) @@ -200,8 +200,8 @@ theme_blank <- function( grid::textGrob( label = xlab, x = grid::unit(0, "npc"), - y = grid::unit(0, "npc"), - vjust = 4 / 3, + y = grid::unit(-0.55, "lines"), + vjust = 1, hjust = 0, gp = grid::gpar(fontsize = lab_size) ), @@ -212,10 +212,11 @@ theme_blank <- function( gp = grid::gpar(lwd = 2) ), grid::textGrob( - label = ylab, x = grid::unit(0, "npc"), - y = grid::unit(0, "npc"), - vjust = -2 / 3, - hjust = 0, + label = ylab, + x = grid::unit(-0.85, "lines"), + y = grid::unit(ylen_npc, "npc") + grid::unit(0.25, "lines"), + vjust = 0.5, + hjust = 0.5, rot = 90, gp = grid::gpar(fontsize = lab_size) )