Adjust positions of rectanglar shapes
Adjust positions of rectanglar shapes
smartAlign2(start, end, range, plot = FALSE)
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) |
plot |
Whether plot the correspondance between the original positions and the adjusted positions. Only for testing. |
This is an improved version of the smartAlign.
It adjusts the positions of the rectangular shapes to make them do not overlap
range = c(0, 10)
pos1 = rbind(c(1, 2), c(5, 7))
smartAlign2(pos1, range = range, plot = TRUE)
range = c(0, 10)
pos1 = rbind(c(-0.5, 2), c(5, 7))
smartAlign2(pos1, range = range, plot = TRUE)
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)
smartAlign2(pos1[ind, ], range = range, plot = TRUE)
}
par(mfrow = omfrow)
pos1 = rbind(c(3, 6), c(4, 7))
smartAlign2(pos1, range = range, plot = TRUE)
pos1 = rbind(c(1, 8), c(3, 10))
smartAlign2(pos1, range = range, plot = TRUE)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.