I intended to create a function to color my network according to three conditions ( = variable abundances), but only the first one is taken into account. Do you know where is the problem ? I think there is a thing in the [1,1] because I want all my data frame to be taken into account and not just the first column.
I precise that the second condition (> 5) means the abundances between 5 and 15, but I did not how to ask properly for an interval.
Thanks a lot !
enter image description here

my_gTree <- grid.grabExpr(grid.echo(function() plotweb(sortweb(web_family, sort.order="dec"), 
                                                       method="normal",  
                                                       text.rot = 90, 
                                                       labsize = 1.5,
                                                       y.width.low = 0.08, 
                                                       y.width.high = 0.08,
                                                       col.interaction = if(web_family[1,1] > 10) { 
                                                          adjustcolor('darkturquoise', alpha.f = 0.5)})))
                                                         } else if(web_family[1,1] > 10){
                                                           adjustcolor('green', alpha.f = 0.5)
                                                           }
                                                       else if(web_family[1,1] < 10){
                                                         adjustcolor('grey', alpha.f = 0.5)})))