smartAlign2: Adjust positions of rectanglar shapes

Description Usage Arguments Details Examples

Description

Adjust positions of rectanglar shapes

Usage

1
smartAlign2(start, end, range, range_fixed = TRUE)

Arguments

start

position which corresponds to the start (bottom or left) of the rectangle-shapes.

end

position which corresponds to the end (top or right) of the rectanglar shapes.

range

data ranges (the minimal and maximal values)

range_fixed

Whether the range is fixed for range when adjust the positions?

Details

This is an improved version of the smartAlign.

It adjusts the positions of the rectangular shapes to make them do not overlap

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
require(circlize)
make_plot = function(pos1, pos2, range) {
    oxpd = par("xpd")
    par(xpd = NA)
    plot(NULL, xlim = c(0, 4), ylim = range, ann = FALSE)
    col = rand_color(nrow(pos1), transparency = 0.5)
    rect(0.5, pos1[, 1], 1.5, pos1[, 2], col = col)
    rect(2.5, pos2[, 1], 3.5, pos2[, 2], col = col)
    segments(1.5, rowMeans(pos1), 2.5, rowMeans(pos2))
    par(xpd = oxpd)
}

range = c(0, 10)
pos1 = rbind(c(1, 2), c(5, 7))
make_plot(pos1, smartAlign2(pos1, range = range), range)

range = c(0, 10)
pos1 = rbind(c(-0.5, 2), c(5, 7))
make_plot(pos1, smartAlign2(pos1, range = range), range)

pos1 = rbind(c(-1, 2), c(3, 4), c(5, 6), c(7, 11))
pos1 = pos1 + runif(length(pos1), max = 0.3, min = -0.3)
omfrow = par("mfrow")
par(mfrow = c(3, 3))
for(i in 1:9) {
    ind = sample(4, 4)
    make_plot(pos1[ind, ], smartAlign2(pos1[ind, ], range = range), range)
}
par(mfrow = omfrow)

pos1 = rbind(c(3, 6), c(4, 7))
make_plot(pos1, smartAlign2(pos1, range = range), range)

pos1 = rbind(c(1, 8), c(3, 10))
make_plot(pos1, smartAlign2(pos1, range = range), range)
make_plot(pos1, smartAlign2(pos1, range = range, range_fixed = FALSE), range)

zhongmicai/complexHeatmap documentation built on May 7, 2019, 6:11 a.m.