data(fishbase)
invert <- which_fish("invertebrate|mollusk", using="trophic", fish.data)
fish_names(fish.data[invert])
sex_swap <- which_fish("change sex", using="lifecycle", fish.data)
africa <- which_fish("Africa", using="distribution", fish.data)
## recall we can sub-set
fish_names(fish.data[africa & sex_swap])
reef <- which_fish("reef", "habitat", fish.data)
redfish <- which_fish("red ", "diagnostic", fish.data)
bluefish <- which_fish("blue ", "diagnostic", fish.data)
sum(redfish) > sum(bluefish)
Run the code above in your browser using DataLab