Primero cargamos el paquete “bipartite”, si aun esta instalado debemos instalarlo primero con la funcion install.packages(“bipartite”)
library(bipartite)
data("bezerra2009")
En este ejemplo usaremos la tabla de datos bezerra2009 el cual consta de observaciones de 38 plantas individuales de 13 especies plantas con flores oleaginosas de la familia Malphighiaceae. Se colectaron los visitantes florales y solo se consideraron los visitantes legítimos. Los números en las celdas se refieren a la cantidad de visitantes de cada especie de abeja recolectada en cada especie de planta. El número de abeja que visitaron las flores se registraron durante cuatro días consecutivos, de 5.00 a 17.00 con un total de 1392h de observaciones.
Ubicación: Parque Nacional do Catimbau, Brasil (8°24’00" -37°36’35“S y 3°09’30” -37°14’40"W)
Para mas información puede visistar http://www.nceas.ucsb.edu/interactionweb
| Centris.aenea | Centris.fuscata | Centris.caxiensis | Centris.tarsata | Centris.flavifrons | |
|---|---|---|---|---|---|
| Diplopterys.pubipetala | 1368 | 1364 | 740 | 460 | 416 |
| Byrsonima.gardnerana | 924 | 320 | 2108 | 464 | 284 |
| Banisteriopsis.muricata | 396 | 468 | 108 | 140 | 272 |
| Heteropterys.sp1 | 764 | 680 | 528 | 308 | 404 |
| Heteropterys.sp2 | 740 | 656 | 528 | 332 | 0 |
| Dicella.bracteosa | 556 | 512 | 356 | 132 | 524 |
| Carolus.chasei | 604 | 452 | 432 | 200 | 0 |
| Stigmaphyllon.paralias | 504 | 816 | 0 | 0 | 0 |
| Banisteriopsis.stellaris | 292 | 300 | 244 | 116 | 0 |
| Banisteriopsis.schizoptera | 228 | 224 | 124 | 120 | 0 |
| Stigmaphyllon.auriculatum | 240 | 164 | 68 | 0 | 196 |
| Stigmaphyllon.ciliatum | 268 | 196 | 0 | 0 | 164 |
| Janusia.anisandra | 188 | 244 | 0 | 96 | 0 |
Cuando los datos no se encuentren organizados de mayor a menor se debe usar antes la funcion sortweb() sobre los datos
plotweb(bezerra2009, method="normal", text.rot="90",
labsize=0.9, col.low="#CDCD00", col.high="#27408B", col.interaction="cornsilk4")
Estas interacciones tambien se pueden graficar de otra manera a traves de la funcion visweb()
visweb(bezerra2009, plotsize=9)