Update

functions.R

@@ -333,8 +333,8 @@ one_dimension <- function(x, annot, text_annot, name_annot, size_point = 3, segm
 
     plot <- ggplot(df, aes(x=x, y=y, colour = annot)) +
       unlist(plot_annot) +
-      scale_x_continuous(limits = c(pos_text[2] + pos_text[2]*50/100, max(df$x) + max(df$x)*50/100)) +
-      scale_y_continuous(limits = c(min(df$y) + min(df$y)*50/100, max(df$y) + max(df$y)*50/100)) +
+      scale_x_continuous(limits = c(max(df$x) - 1.5 * max(df$x), 1.5 * max(df$x))) +
+      scale_y_continuous(limits = c(max(df$y) - 1.5 * max(df$y), 1.5 * max(df$y))) +
       theme(panel.background = element_blank(),
             axis.text = element_blank(),
             axis.ticks = element_blank(),