Plotting R-Tree in R

nr-tree.R

plot(
  main = "NR-Tree (Amer F. Al-Badarneh, Qussai Yaseen and Ismail Hmeidi)",
  sub = "M=9, k=0.4, n=40",
  c(0, 1), c(0, 1),
  type = "n",
  xlab = "", ylab = ""
)
rect(0.30846, 0.14636, 0.50941, 0.56829, col=rgb(0.2,0.2,0.2,alpha=0.05), lwd="0.2")
rect(0.80374, 0.28798, 1, 0.58362, col=rgb(0.2,0.2,0.2,alpha=0.05), lwd="0.2")
rect(0, 0.61912, 0.28748, 1, col=rgb(0.2,0.2,0.2,alpha=0.05), lwd="0.2")
rect(0.53168, 0, 0.57583, 0.86189, col=rgb(0.2,0.2,0.2,alpha=0.05), lwd="0.2")
rect(0.60766, 0.20581, 0.81426, 0.57423, col=rgb(0.2,0.2,0.2,alpha=0.05), lwd="0.2")
rect(0.70211, 0.67824, 0.91574, 0.8506, col=rgb(0.2,0.2,0.2,alpha=0.05), lwd="0.2")
rect(0.46433, 0.36621, 0.47574, 0.38994, lwd="0.2", border="red")
rect(0.45464, 0.31596, 0.46571, 0.34256, lwd="0.2", border="red")
rect(0.39575, 0.32525, 0.41567, 0.36796, lwd="0.2", border="red")
rect(0.49611, 0.14636, 0.50941, 0.16692, lwd="0.2", border="red")
rect(0.35144, 0.5296, 0.3845, 0.56829, lwd="0.2", border="red")
rect(0.36456, 0.2166, 0.39671, 0.29232, lwd="0.2", border="red")
rect(0.30846, 0.28199, 0.33654, 0.3571, lwd="0.2", border="red")
rect(0.80374, 0.37903, 0.81495, 0.40497, lwd="0.2", border="red")
rect(0.86312, 0.28798, 0.87059, 0.30699, lwd="0.2", border="red")
rect(0.90585, 0.48787, 0.91506, 0.50896, lwd="0.2", border="red")
rect(0.91626, 0.50261, 0.91851, 0.50654, lwd="0.2", border="red")
rect(0.92812, 0.40801, 0.94177, 0.42771, lwd="0.2", border="red")
rect(0.99415, 0.49415, 1, 0.49965, lwd="0.2", border="red")
rect(0.91116, 0.5453, 0.92682, 0.58362, lwd="0.2", border="red")
rect(0.98359, 0.49726, 0.99069, 0.51431, lwd="0.2", border="red")
rect(0.0561, 0.61912, 0.07832, 0.6401, lwd="0.2", border="red")
rect(0, 0.98687, 0.01083, 1, lwd="0.2", border="red")
rect(0.12083, 0.92879, 0.15265, 0.97903, lwd="0.2", border="red")
rect(0.25668, 0.71439, 0.26648, 0.76126, lwd="0.2", border="red")
rect(0.26644, 0.73816, 0.28748, 0.83284, lwd="0.2", border="red")
rect(0.53483, 0.65236, 0.54435, 0.67135, lwd="0.2", border="red")
rect(0.56341, 0.68073, 0.57287, 0.70922, lwd="0.2", border="red")
rect(0.56118, 0.74712, 0.57095, 0.7661, lwd="0.2", border="red")
rect(0.55888, 0.84284, 0.57309, 0.86189, lwd="0.2", border="red")
rect(0.56306, 0, 0.57583, 0.03853, lwd="0.2", border="red")
rect(0.53168, 0.29644, 0.54173, 0.33406, lwd="0.2", border="red")
rect(0.72291, 0.20581, 0.73157, 0.22881, lwd="0.2", border="red")
rect(0.78906, 0.27596, 0.80026, 0.29822, lwd="0.2", border="red")
rect(0.65786, 0.41836, 0.6701, 0.44166, lwd="0.2", border="red")
rect(0.80751, 0.46794, 0.81426, 0.48278, lwd="0.2", border="red")
rect(0.62305, 0.55428, 0.63491, 0.57423, lwd="0.2", border="red")
rect(0.60766, 0.41472, 0.6147, 0.44324, lwd="0.2", border="red")
rect(0.74821, 0.21603, 0.76179, 0.24639, lwd="0.2", border="red")
rect(0.61165, 0.5079, 0.62309, 0.52447, lwd="0.2", border="red")
rect(0.88737, 0.73773, 0.89773, 0.77487, lwd="0.2", border="red")
rect(0.90788, 0.67824, 0.91574, 0.69882, lwd="0.2", border="red")
rect(0.83724, 0.69681, 0.84692, 0.71589, lwd="0.2", border="red")
rect(0.8264, 0.68727, 0.83727, 0.70238, lwd="0.2", border="red")
rect(0.70211, 0.82354, 0.7171, 0.8506, lwd="0.2", border="red")

Linear split proposed by Amer F. Al-Badarneh, Qussai Yaseen and Ismail Hmeidi in "A new enhancement to the R-tree node splitting"
Dataset: Subset of TIGER/Line US Counties 2020 distributed by the US Bureau of Census.

• 6 leaf nodes: gray background
• 40 index entries: red border
• scaled to unit square