Build Food Webs
Create a food web, where an edge indicates what animals and insects eat.
web = {"Ladybug""Aphid", "Beetle""Caterpillar", "Towhee""Caterpillar", "Towhee""Grasshopper", "Towhee""Ladybug", "Dragonfly""Mosquito", "Towhee""Mosquito", "Aphid""Sunflower", "Caterpillar""Sunflower", "Grasshopper""Sunflower", "Louse""Sunflower", "Owl""Towhee"};shapes = {"Sunflower" -> [image], "Aphid" -> [image], "Ladybug" -> [image], "Towhee" -> [image], "Owl" -> [image], "Grasshopper" -> [image], "Louse" -> [image], "Caterpillar" -> [image], "Beetle" -> [image], "Mosquito" -> [image], "Dragonfly" -> [image]};style = { VertexSize -> .7, EdgeStyle -> Directive[Arrowheads[{{.05, .6}}], Hue[.4, 1, .3]], VertexShape -> shapes};Graph[web, style]