Commit 678642b7 authored by simon.chevolleau's avatar simon.chevolleau
Browse files

Update

parent 80e614bd
......@@ -329,11 +329,6 @@ one_dimension <- function(x, annot, text_annot, name_annot, size_point = 2, fact
df <- data.frame(x = unlist(x), y = y, annot = unlist(annot))
df$y <- jitter(df$y, amount = jitter_amount)
scale_x_continuous(c(limits = ifelse(min(df$x) <= 0, min(df$x) * factor_limit, mind(df$x) - min(df$x) * factor_limit),
ifelse(max(df$x) <= 0, max(df$x) * factor_limit, max(df$x) - max(df$x) * factor_limit))) +
scale_x_continuous(c(limits = ifelse(min(df$y) <= 0, min(df$y) * factor_limit, mind(df$y) - min(df$y) * factor_limit),
ifelse(max(df$y) <= 0, max(df$y) * factor_limit, max(df$y) - max(df$y) * factor_limit))) +
if (!(is.null(colors))){
plot <- ggplot(df, aes(x=x, y=y, colour = annot)) +
unlist(plot_annot) + scale_x_continuous(c(limits = ifelse(min(df$x) <= 0, min(df$x) * factor_limit, mind(df$x) - min(df$x) * factor_limit),
......
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