Commit ba54ca47 authored by Simon CHEVOLLEAU's avatar Simon CHEVOLLEAU 💻
Browse files

Update

parent 26ee545d
......@@ -321,7 +321,8 @@ one_dimension <- function(x, annot, text_annot, name_annot, size_point = 3, segm
plot_annot <- c(plot_annot, annotate("segment",x=min_x,xend=max_x, y=count, yend=count, size=segment_size, arrow = arrow(length=unit(0.00,"cm"), type = "closed")))
# Avoid text overlap
plot_annot <- c(plot_annot, annotate("text", x = ifelse(count %% 2 == 0, pos_text[1], pos_text[2]), y=count, label = text_annot[[count +1]], angle = 90))
if (print_text_annot)
plot_annot <- c(plot_annot, annotate("text", x = ifelse(count %% 2 == 0, pos_text[1], pos_text[2]), y=count, label = text_annot[[count +1]], angle = 90))
count <- count + 1
}
......
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