fix: loops not plotted on canvas (#1800)

schochastics · web-flow · commit 6752ad8b3c31 · 2025-04-04T16:48:47.000Z
diff --git a/R/plot.R b/R/plot.R
@@ -211,6 +211,7 @@ plot.igraph <- function(x,
       graph,
       list(vertex.size = 1 / 200 * vertex.size, vertex.size2 = 1 / 200 * params("vertex", "size2"))
     )
+    vertex.size <- 1 / 200 * vertex.size
   }
   ################################################################
   ## Mark vertex groups
diff --git a/tests/testthat/_snaps/plot/basic-graph-layout-1.svg b/tests/testthat/_snaps/plot/basic-graph-layout-1.svg
@@ -25,7 +25,7 @@
   </clipPath>
 </defs>
 <g clip-path='url(#cpNTkuMDR8Njg5Ljc2fDU5LjA0fDUwMi41Ng==)'>
-<polygon points='3430.52,471.81 3435.11,469.61 3439.50,467.69 3443.70,466.03 3447.71,464.62 3451.53,463.45 3455.15,462.51 3458.59,461.78 3461.84,461.26 3464.89,460.94 3467.76,460.79 3470.43,460.81 3472.91,460.99 3475.20,461.32 3477.30,461.78 3479.21,462.37 3480.93,463.06 3482.46,463.86 3483.79,464.74 3484.94,465.70 3485.89,466.72 3486.66,467.80 3487.23,468.91 3487.61,470.06 3487.80,471.22 3487.80,472.39 3487.61,473.56 3487.23,474.70 3486.66,475.82 3485.89,476.89 3484.94,477.92 3483.79,478.87 3482.46,479.76 3480.93,480.55 3479.21,481.25 3477.30,481.83 3475.20,482.29 3472.91,482.62 3470.43,482.80 3467.76,482.83 3464.89,482.68 3461.84,482.35 3458.59,481.83 3455.15,481.11 3451.53,480.17 3447.71,479.00 3443.70,477.59 3439.50,475.93 3435.11,474.01 3430.52,471.81 ' style='stroke-width: 0.75; stroke: #00FF00; fill: none;' />
+<polygon points='579.73,471.81 584.32,469.61 588.71,467.69 592.91,466.03 596.92,464.62 600.74,463.45 604.36,462.51 607.80,461.78 611.05,461.26 614.10,460.94 616.96,460.79 619.64,460.81 622.12,460.99 624.41,461.32 626.51,461.78 628.42,462.37 630.14,463.06 631.67,463.86 633.00,464.74 634.15,465.70 635.10,466.72 635.87,467.80 636.44,468.91 636.82,470.06 637.01,471.22 637.01,472.39 636.82,473.56 636.44,474.70 635.87,475.82 635.10,476.89 634.15,477.92 633.00,478.87 631.67,479.76 630.14,480.55 628.42,481.25 626.51,481.83 624.41,482.29 622.12,482.62 619.64,482.80 616.96,482.83 614.10,482.68 611.05,482.35 607.80,481.83 604.36,481.11 600.74,480.17 596.92,479.00 592.91,477.59 588.71,475.93 584.32,474.01 579.73,471.81 ' style='stroke-width: 0.75; stroke: #00FF00; fill: none;' />
 <line x1='555.28' y1='461.68' x2='384.48' y2='290.88' style='stroke-width: 0.75; stroke: #FF0000;' />
 <line x1='364.22' y1='270.62' x2='193.52' y2='99.92' style='stroke-width: 0.75; stroke: #0000FF;' />
 <circle cx='565.41' cy='471.81' r='14.33' style='stroke-width: 0.75; fill: #E69F00;' />
diff --git a/tests/testthat/_snaps/plot/basic-graph-layout-2.svg b/tests/testthat/_snaps/plot/basic-graph-layout-2.svg
@@ -25,7 +25,7 @@
   </clipPath>
 </defs>
 <g clip-path='url(#cpNTkuMDR8Njg5Ljc2fDU5LjA0fDUwMi41Ng==)'>
-<polygon points='3048.51,89.79 3053.09,87.59 3057.48,85.67 3061.68,84.01 3065.69,82.60 3069.51,81.43 3073.14,80.49 3076.57,79.77 3079.82,79.25 3082.88,78.92 3085.74,78.77 3088.41,78.80 3090.89,78.98 3093.19,79.31 3095.29,79.77 3097.20,80.35 3098.91,81.05 3100.44,81.84 3101.78,82.73 3102.92,83.68 3103.88,84.71 3104.64,85.78 3105.21,86.90 3105.60,88.04 3105.79,89.21 3105.79,90.38 3105.60,91.54 3105.21,92.69 3104.64,93.80 3103.88,94.88 3102.92,95.90 3101.78,96.86 3100.44,97.74 3098.91,98.54 3097.20,99.23 3095.29,99.82 3093.19,100.28 3090.89,100.61 3088.41,100.79 3085.74,100.81 3082.88,100.66 3079.82,100.34 3076.57,99.82 3073.14,99.09 3069.51,98.15 3065.69,96.98 3061.68,95.57 3057.48,93.91 3053.09,91.99 3048.51,89.79 ' style='stroke-width: 0.75; stroke: #00FF00; fill: none;' />
+<polygon points='197.72,89.79 202.30,87.59 206.69,85.67 210.89,84.01 214.90,82.60 218.72,81.43 222.35,80.49 225.78,79.77 229.03,79.25 232.08,78.92 234.95,78.77 237.62,78.80 240.10,78.98 242.40,79.31 244.50,79.77 246.40,80.35 248.12,81.05 249.65,81.84 250.99,82.73 252.13,83.68 253.09,84.71 253.85,85.78 254.42,86.90 254.81,88.04 255.00,89.21 255.00,90.38 254.81,91.54 254.42,92.69 253.85,93.80 253.09,94.88 252.13,95.90 250.99,96.86 249.65,97.74 248.12,98.54 246.40,99.23 244.50,99.82 242.40,100.28 240.10,100.61 237.62,100.79 234.95,100.81 232.08,100.66 229.03,100.34 225.78,99.82 222.35,99.09 218.72,98.15 214.90,96.98 210.89,95.57 206.69,93.91 202.30,91.99 197.72,89.79 ' style='stroke-width: 0.75; stroke: #00FF00; fill: none;' />
 <line x1='193.52' y1='99.92' x2='364.13' y2='270.53' style='stroke-width: 0.75; stroke: #FF0000;' />
 <line x1='384.39' y1='290.79' x2='555.28' y2='461.68' style='stroke-width: 0.75; stroke: #0000FF;' />
 <circle cx='183.39' cy='89.79' r='14.33' style='stroke-width: 0.75; fill: #E69F00;' />
diff --git a/tests/testthat/_snaps/plot/basic-graph-spheres.svg b/tests/testthat/_snaps/plot/basic-graph-spheres.svg
@@ -25,6 +25,7 @@
   </clipPath>
 </defs>
 <g clip-path='url(#cpNTkuMDR8Njg5Ljc2fDU5LjA0fDUwMi41Ng==)'>
+<polygon points='305.96,143.91 309.24,142.34 312.39,140.96 315.40,139.77 318.27,138.76 321.01,137.92 323.61,137.25 326.07,136.73 328.40,136.35 330.59,136.12 332.64,136.02 334.55,136.03 336.33,136.16 337.97,136.40 339.48,136.73 340.85,137.15 342.08,137.64 343.17,138.21 344.13,138.85 344.95,139.53 345.64,140.27 346.18,141.04 346.59,141.84 346.87,142.66 347.01,143.49 347.01,144.33 346.87,145.16 346.59,145.98 346.18,146.78 345.64,147.56 344.95,148.29 344.13,148.98 343.17,149.61 342.08,150.18 340.85,150.68 339.48,151.09 337.97,151.43 336.33,151.66 334.55,151.79 332.64,151.81 330.59,151.70 328.40,151.47 326.07,151.09 323.61,150.58 321.01,149.90 318.27,149.06 315.40,148.05 312.39,146.86 309.24,145.49 305.96,143.91 ' style='stroke-width: 0.75; stroke: #A9A9A9; fill: none;' />
 <line x1='285.91' y1='192.31' x2='325.90' y2='232.30' style='stroke-width: 0.75; stroke: #A9A9A9;' />
 <line x1='422.70' y1='329.10' x2='462.89' y2='369.29' style='stroke-width: 0.75; stroke: #A9A9A9;' />
 <image width='136.89' height='136.89' x='169.07' y='75.47' preserveAspectRatio='none' xlink:href='data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAGQAAABkCAYAAABw4pVUAAARlklEQVR4nO2dO48sSbHH/1nV3dPzPA9WiEXCvNa1+QKLuM71wcE4SIdFIF1wMNH1sMAAgRDCYT2+BZ+Da8E1dxeD1WKcM12ZgZEZmZGZkfXoqZ7pfYRUU93V1TVV8at/RGRWVjXwpX1pp7DX3wY99T6sYeapd2CO/fw7oG0PdB3QAXGviQAKc0eAc36yBFgHWAsMDhgscLDA/QH44C/nfcxnuXO/+B7oYgNsGIIBTLGnDCGDEUA4F4CEaWA4AczBAofBf3ZugM5mZ371fdB+C2w3wKbLQfBOshoqVRRAqskKKEExgwBzP/jtnwOcJ92BX74C3eyBiy2w2wB9D/QBRMcgZHgKMFogSmWUCrEMQ0DJwFiAM9FTwXmSf/qb16DbS2C/BXZbH5paqgByRbTyRROGrV9rUMpwxvbYYB71n/3ufdDdFXC586rY9gFGH1TR+R3ifEHhTwaCkvOzBC7Ck6qMImRZCUQJYwfrt8/2WGAe5Z/8+jXo5Q1wvQcugyp2IWn3XQpTWuKuQFBbDZnzldwh1WEVGBqYweb7dGowJwfyp594VVxd+BDFytj2ec6YBWNkaoWmDIKijqUhDDgtlJNt+Pc/BH3lDri9BK52wJ7D1CbAYGUEINKyfKHkiVYo0qqpShWt5SNQeE5F0/MUYDZrbxAAPvgp6MU1cHOZK2O3SWVtqYiWaW2KzgKD8XMuAIyoymZ7idKcymWKlVBevQdaG8rqhP/8M9DzKw/j+sIrYx9gdN3x23VKYo5nu3Z2N5L3WGKvtqOUx8OJlbLahn77A9C7L4Hn18DNPiTwAOMhIKQRtR3fWqZVU2M5pFV9lWA0WwPMKq76w49A33gHeOfWA3l2DdyFcLUWDMCHJS4IuFzedH7qGxOX010H9CZfFnNY8Zm6rT5Nm17fv1fvPbyD88Hu+uOPQV9/Cby89SCeXXkY25NkJ299Pw6hL51q8gKCAcT3Jv9MzlvbbJ1oD4XyICB//DHo3RfAi5sA4sqHqrkJ+1gzSGcqO0ee7ZmjG4432udj81JtI4XJQ6AcDeQPPwJ97QXw/MaDuL30OeMYM8YsnmTYyaAIRxsDmOA4o0AwxbrdxBSVYsZVAhwP5Sggv/0B6GvPfb64uwRu976aWmrsXG1ZOWnf7Y1B15laDZ0HUSnF1HDK1xJkJ+YZQA5npm5DSTsGylGRnqup20tf3i6FIR2sOXvqOxTqzq4DOgcPxQHGUO3YxtQBcGJdJ+byc/lZZwDXAR0JMAS4RtV1jC1WyJ9/BnoeGn03+2VhSp7tx4Qp9budPKNN5XTDEy/HOKhKLdCVVIa4li1VySIgH/w0NPpCO+PqYv5354Doui6bxmDEAwgQOrCjTA2hBIGZ8+L7ElCmwAkvLoEyG8jvf5i6Q673vn9qbjXVgsFObwHQllXb4u1nzvaQoDiVnQ0o3S1yPgWoUMmUL+ZCmZ1DvnKXukMud/PaGdJ5PJ8646UREYwxMWdon8MYGFDahqHgHL+83qlsll4XUEYBCRhOvG/s5iKbpZA//cRf4bsSfVNzbUwdfd+j7/vstVymha9qm9n75OgEJTm1dHZar4Ahlkl1NZWD8TzCNkclk0B+/Tpczwgg5vZNaSpg55YQNptNNmlgtDAWNu5nCYXYCUSPmfyTbE3lm1kIailHC2FTNgVlMvC8vEnK4C70KSvLWi1faM4GfBjiyTkH51wMWbw8N4J3j1xevp/aYbnvjdfivaoirBO2Rs/1370Put7n1zOm1KGFKHZ6qYjdbuen/R7b/R7biwvsLi6w2+0ytWhJP/0vnyn8lDxI+fl+hGv4eNrvtXA3x8ZUMnq+3135a+DxSt/MEmCspGVHb7dbYLsFNhs/8ellLcwwYDMMcMMAYwysTS0vVgwn+3Rk/vsEA+IrToRs+JCmLXX/q+Op38tcJRXyUGue7795Dbrc+QEJsct7pjrk+zJMbTYbbHc7YL8Hrq+BZ8+AFy/89OwZcHsLXF0BFxfottumQowx3vkUJginawDI6MtRhxkNVOXrQhF5MTFtLZU0z/nbS3HZtR/v3cz2s9GW4HC13W6BiwsP4+7OT1dXPha+fQv8619+Cv+sI0Iv8gqrA0hdKGlEI6sEYblXSwkLSBCWxPxRKAtC1pipQH75Kgzr5C7uAGTMNHXwXIYrbLdeHXd3wFe/Cjx/F8A7/ohuPgGuP/Rw4kg4iz4kd+dcUgcRiAwcUQhLvCy95pAlZSEVooWwY5JyCWXuJrRr8iqQm30aUTh1QSbbsUajT0LBZpOAPH8XwH8C+I+whb8B+w64ewu8eQPc3/tJCVeOwtlPJqjDw3AQiuE8IpchLSs/a3qyEer8QWazxQVeaSqQi226RCqvMbRMa2mrYPreA9ntfJjCO/AwvimO4iPg8kO/Tt/Hfu8SdjZmSwwbKpO4hJOFNAGlVE/9vcez6rz/1fdBOx6Bbub104xZ5sis34H7YgF/yGKkcwMwmxw8JyFUQ04JXklUOFi+R5FfihC36FiXf6VK7pVC9tt0YnYzE3m1Y60vsTes9Qn85hMAf+MPAfwdwD99uBqG5HGIBE4pvWSOdxIAqaBKMHKXKlVhJpeV5VMB2W7E8M4FG2pCCEYSxuHgK6nrD33OwEdhrX8Chw/9Z2/fJiih7UFEsI7ioLkSTKkOVQ0KlHpn84mKqUVrDTZZyPrF90Acqsq+mYd0CcSS1TnvZC5vP/4Y+OTvwP1fgcP/AZ/+P/CPfwCffupVcjgA1oICkAQjQeHB1zGEOQK5HE6lEi2EjSilOp7GdKzJsJUp5GIjRmVkDvUHdIzJ9oO1FhsGYoz34Js3PoEDCdabN34egDjnYJ3DYAmDpTCul7Lxvq0QRkQZjFb40qDEY8DDnT7XMiB8n4ZMtZlUZ1rWtVF0FLphQMfSc86XtX2f3g+DBxEmNwyw1uEwMAzCEGF41TiiGkgBIC5D7Xj1bG+EqVY3TDr4+X7SLAMSk7ggEg8mnIVzRyKWLWrnHKy1cVnH+SS0M8KKsTEIawMMi/vBYhgcBgElC1sOsER1XnFpk0Ss1olyueH4EpaWW9YokaN7f/4dUKkOudN8S8ASkwqRUIZhgD0cPAwOURym3r4F3d/DHg4YBou3B4vDweEwpJDlB0YHdUgIjsL++jwymeyn8ofieAAnCWGcR6JCtn1K4mXJKG8J6BsqkYoolzvnqmW8POsslPnGhTA1eBg+ZDmhEIgEH9QRTprkfBK5pD05yiG0AEnfRJVgXTgRSIwaKM4okTT5/oztRGNRuwYuwWhA5HrWUVLDwK8dDlYsL8A4p4esMjyVZXIzuSNfLsNY9BOU/LJWDuGTXu6gDFXyZhljvKI0K5VSDlRgCLy87A7hsz0mcBVCrhB57yGrwpYwwnqqMo4ApMJ5GIscCCcPQnE2KXcuwSIOeM7L47prvBw1UoLg9fPQSOHmGa6qEOF49aQcwiWwEyqxMlw5xHaJlku09kkFR4CQYSpTxUpEsior7rRDljfiHa0GMDZfv++BDroqJJhyOb/nvqb6xk7RCLRCNSKhNxuJVbuEKhASxuzGo4DTCmGrASnPHg0Kh6sMIJDdbyGtDFf8mhtsFLrQs9gu/p8rnW7z93zHU6ywnA5AU4UKARMwpkLYmgqJsZRBUJ0/TAhXGRDyfV8uDHw2HfnhnSDfbR7mfP7EMwyhPCWTO0qc6XlrXCqm9ZkMXwWoELpaMJoq0UCJ91kIW8GaCinvA+9sMbapONs6R+g6A+MAY0KeiKGMAB58gPogq7ZCTMq109ugkvNTV4qiFDcPRnxdwhhRyWpAXn8bVIYpGToGmzobjRFqIqBnIIYVEio2k2CYcBktBC7w1T0ZsqI6heO8WqSTKXuSgytgyMqqnU+mQ5dTTpZR1awE49V7oHjC/+93xXBRHoe1BXZ9utlfXkXU7lwyJr8lADB5zoEc+WGqElQDE898Emd+A4xcxxbfibCK19l2qb2eBGyLz/n7D7UP/gITQ5b66AoLWD7zRbySjuzCzqV79zhcwasEgOyQIR4CTaScjSGfOMqVQnkYyh1I1ToMo1KHU8KjFqb4NWplyP1dO1wBIoe0HuoyOF/qRh5F7Ix3E5EcNMZtDd46RSg8iM1/3xQNsxC+KifmDm42AgsYcnkFgZe5cTAVhMa0PhBNIS7cMia6SiQMErd3GUrr+VF8HoKEIkMWAMRLrahjeeaoMoSRKHEzSIoySihFPmmFTVU10F+vaQmI1dXB1VVyaxGyOHcEhfCdTDA86lZe7RLqYDgFkHY+odrJhVJaOaKEUqplDpxWcl8hdehAhhKG9c4elMu5QAGkEyEL+fqpHZK+59FQVsfH0SFl+KIWBH5dNyzVOeXf15w/BqcVwlbtg8+AyAew9L6b3SoKYad2XZrX4UoCgV+B8UQgCQZJAKhDlxb/s7zSAtaCWCxTz/wZcNZWRwbkIJ6qs7GA7UTrXKmwOko5xIjxW9VI8Oz6PA9SMzUQ1AetzZ0rrvq1qqimotpgWhBaIWxtdWRA7g/pUUe2TyFLfVQrfIMwyyESiIRQDpiA9zwfi4ch2iQVmDp0ZQ4qndmCooAZq5rmhLBTWBaN/ue/8xt0ygbhRmkMdp2uDqPAyKEkuDK5ZweN8fBV5pdSOS0l1WX1jLCXldvrA+FB11n3Oz+ga+iBvugukc7skfJHLHsbIasJBFDySPFaCRNVCBtTj6KSSlELJrlfp7IcyJAe0tXzYyvKspcSjJ7gHzvBzwGBltD1f9xO7no+mcotrTC2RDXx/4+EM3dCGEABxDqvko1tDCdlJ1LIIWEdR8U928hVVeUQ+VoA4G1LKK34PRtOEWZaFdZclZzaqvP3/f8CXV3kD63kR7puik7F1lN2ZFIfG3cNTEOpKh7Uzq8rsWk4Wg4aLQrc6YDIm3aqwdb3gxhw3aV+LPaeLHu1B4JpCb0MXTIGz1FJmeSXhLJWQdDMMSOKeQxTb9g5DOlZ7DL8kJg4ZBGherTRVJUlTSplDAi/ngphY0m/lWfid0cqrscy1V+vvgW62iml70TZqypkBIpUR97p2AYyVhbPyi1aPlEAlWHvVDbrHkOQT+5cPRV9g2rZO6UQLZdoeYSXZxCQw5gKXbPDWOH4suI6NQzNmrdFHwaRsMVydkYfwhV1AAkYXQGjBGGQHC+3WSqFtPfhdZXoCc3LrktL43L5Y1szxL96D9R1odoauXwboXV5O2ROpcWmAuHXM5RyjEq0yqxcfmrTHrw8+rAM57xSKoWEqSMBhVJynxuy4jbHQhdqACocdiQWAlGU8hTKYBs9d3mIPCd2+RMT2ZOjWSGyL0trIC5ok/DyVtgqldKqvmYrRKz/GNZ6LPmsx8lIlZTOmFRIkYMqKAIAkMPJymA0gBT7szSfyJB1DjbVTIgq4RHvMY/0xeO6uxzGWHuk1ZUC6GqZq5RyMMKS3PKYNvbQ/tnPXCQKv58B4YxQ9vadP6ix9ohWbQHzgfBnVM5nqESDcA75QrNJhQD5bbvGhAaifO76WB5ZUG0BuYOiMpA7vlTOGIgxdTyFTf2kxSwggPIIiBKI1mJfWG0ByJO6eL92PnkKm/P7Ikf/qMRg/QHGbngtZCnVlol/GtYAslY+OXebrRBAfwqaMbpKZKs9wpgDRQABFAD8emE+qff8cW3ur+8sAgK0H03X7Ghs5JH4j5WSqwTCy7SwNZVPnhoEsOynkBYDAcafqpkl96mGYmMbLSBL8sm52NLfpVr9h4kcAbBFZ2NZAgORhra3U0A0Vch1P8t2lEKAZU/8n5Pcp9ol/FpTyrnaMb/adjQQ4Pif9Tmm4gLOH4C0Y39C70FAgHV+Ku7zZg/5PcMHAwG+hCLtoT8uuQoQ4EsowDq/9LkaELYvIpiz/C1caV8kKGf/a9FsXwQop/g99ZMBYfs8gjkFCLaTAwE+X1BOCQN4JCBsn2UwpwbB9qhA2D5LYB4LBNuTAGE7ZzCPDYLtSYFIOwc4TwVB2pPvgGaPCeccIEg7q51p2ZqAzg3A59bOIeStYf8GrpZye2XFI/8AAAAASUVORK5CYII='/>
diff --git a/tests/testthat/_snaps/plot/loop-graph.svg b/tests/testthat/_snaps/plot/loop-graph.svg
@@ -25,8 +25,8 @@
   </clipPath>
 </defs>
 <g clip-path='url(#cpNTkuMDR8Njg5Ljc2fDU5LjA0fDUwMi41Ng==)'>
-<polygon points='3048.51,89.79 3053.09,87.59 3057.48,85.67 3061.68,84.01 3065.69,82.60 3069.51,81.43 3073.14,80.49 3076.57,79.77 3079.82,79.25 3082.88,78.92 3085.74,78.77 3088.41,78.80 3090.89,78.98 3093.19,79.31 3095.29,79.77 3097.20,80.35 3098.91,81.05 3100.44,81.84 3101.78,82.73 3102.92,83.68 3103.88,84.71 3104.64,85.78 3105.21,86.90 3105.60,88.04 3105.79,89.21 3105.79,90.38 3105.60,91.54 3105.21,92.69 3104.64,93.80 3103.88,94.88 3102.92,95.90 3101.78,96.86 3100.44,97.74 3098.91,98.54 3097.20,99.23 3095.29,99.82 3093.19,100.28 3090.89,100.61 3088.41,100.79 3085.74,100.81 3082.88,100.66 3079.82,100.34 3076.57,99.82 3073.14,99.09 3069.51,98.15 3065.69,96.98 3061.68,95.57 3057.48,93.91 3053.09,91.99 3048.51,89.79 ' style='stroke-width: 0.75; stroke: #00FF00; fill: none;' />
-<text x='3105.81' y='91.78' text-anchor='middle' style='font-size: 12.00px; fill: #00FF00; font-family: sans;' textLength='30.69px' lengthAdjust='spacingAndGlyphs'>green</text>
+<polygon points='197.72,89.79 202.30,87.59 206.69,85.67 210.89,84.01 214.90,82.60 218.72,81.43 222.35,80.49 225.78,79.77 229.03,79.25 232.08,78.92 234.95,78.77 237.62,78.80 240.10,78.98 242.40,79.31 244.50,79.77 246.40,80.35 248.12,81.05 249.65,81.84 250.99,82.73 252.13,83.68 253.09,84.71 253.85,85.78 254.42,86.90 254.81,88.04 255.00,89.21 255.00,90.38 254.81,91.54 254.42,92.69 253.85,93.80 253.09,94.88 252.13,95.90 250.99,96.86 249.65,97.74 248.12,98.54 246.40,99.23 244.50,99.82 242.40,100.28 240.10,100.61 237.62,100.79 234.95,100.81 232.08,100.66 229.03,100.34 225.78,99.82 222.35,99.09 218.72,98.15 214.90,96.98 210.89,95.57 206.69,93.91 202.30,91.99 197.72,89.79 ' style='stroke-width: 0.75; stroke: #00FF00; fill: none;' />
+<text x='255.02' y='91.78' text-anchor='middle' style='font-size: 12.00px; fill: #00FF00; font-family: sans;' textLength='30.69px' lengthAdjust='spacingAndGlyphs'>green</text>
 <line x1='193.52' y1='99.92' x2='364.13' y2='270.53' style='stroke-width: 0.75; stroke: #FF0000;' />
 <line x1='384.39' y1='290.79' x2='555.28' y2='461.68' style='stroke-width: 0.75; stroke: #0000FF;' />
 <text x='250.39' y='161.08' text-anchor='middle' style='font-size: 12.00px; fill: #FF0000; font-family: sans;' textLength='17.34px' lengthAdjust='spacingAndGlyphs'>red</text>

Original file line number	Diff line number	Diff line change
`@@ -211,6 +211,7 @@ plot.igraph <- function(x,`
`211`	`211`	`graph,`
`212`	`212`	`list(vertex.size = 1 / 200 * vertex.size, vertex.size2 = 1 / 200 * params("vertex", "size2"))`
`213`	`213`	`)`
	`214`	`+ vertex.size <- 1 / 200 * vertex.size`
`214`	`215`	`}`
`215`	`216`	`################################################################`
`216`	`217`	`## Mark vertex groups`