data(fishbase)
## The distribution of anal ray fins in red-colored fish
redfish <- which_fish("red ", "diagnostic", fish.data)
traits <- getQuantTraits(fish.data[redfish])
hist(traits[, "min.anal.rays"])
Run the code above in your browser using DataLab