Commit 046a07e7 authored by simon.chevolleau's avatar simon.chevolleau
Browse files

Update

parent dc67af8c
......@@ -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]*10/100, max(df$x) + max(df$x)*10/100)) +
scale_y_continuous(limits = c(min(df$y) + min(df$y)*10/100, max(df$y) + max(df$y)*10/100)) +
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)) +
theme(panel.background = element_blank(),
axis.text = element_blank(),
axis.ticks = element_blank(),
......@@ -350,8 +350,8 @@ one_dimension <- function(x, annot, text_annot, name_annot, size_point = 3, segm
plot <- ggplot(df, aes(x=x, y=y)) +
unlist(plot_annot) +
scale_x_continuous(limits = c(pos_text[2] + pos_text[2]*10/100, max(df$x) + max(df$x)*10/100)) +
scale_y_continuous(limits = c(min(df$y) + min(df$y)*10/100, max(df$y) + max(df$y)*10/100)) +
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)) +
theme(panel.background = element_blank(),
axis.text = element_blank(),
axis.ticks = element_blank(),
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment