Description Usage Arguments Details Examples
Adjust positions of rectanglar shapes
1 |
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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | 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)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.