Commit b3c30d8e authored by simon.chevolleau's avatar simon.chevolleau
Browse files

Update

parent 046a07e7
......@@ -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(),
......
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