diff --git a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R
index be0c50d8..dd1c6b8d 100644
--- a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R
+++ b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R
@@ -94,17 +94,23 @@ theme_publication <- function(base_size = 14, base_family = "sans", legend_posit
       plot.title = element_text(face = "bold", size = rel(1.2), hjust = 0.5),
       text = element_text(),
       panel.border = element_rect(colour = NA),
+      panel.background = element_rect(colour = NA),
+      panel.border = element_rect(colour = NA),
+      plot.background = element_rect(colour = NA),
       axis.title = element_text(face = "bold", size = rel(1)),
-      axis.title.y = element_text(angle = 90, vjust = 2, size = 18),
-      axis.title.x = element_text(vjust = -0.2, size = 18),
+      axis.title.y = element_text(angle = 90, vjust = 2),
+      axis.title.x = element_text(vjust = -0.2),
+      axis.text = element_text(),
       axis.line = element_line(colour = "black"),
-      axis.text.x = element_text(size = 16),
-      axis.text.y = element_text(size = 16),
+      axis.ticks = element_line(),
       panel.grid.major = element_line(colour = "#f0f0f0"),
       panel.grid.minor = element_blank(),
       legend.key = element_rect(colour = NA),
       legend.position = legend_position,
       legend.direction = ifelse(legend_position == "right", "vertical", "horizontal"),
+      legend.key.size = unit(0.2, "cm"),
+      legend.spacing = unit(0, "cm"),
+      legend.title = element_text(face = "italic"),
       plot.margin = unit(c(10, 5, 5, 5), "mm"),
       strip.background = element_rect(colour = "#f0f0f0", fill = "#f0f0f0"),
       strip.text = element_text(face = "bold")