change filter(Class %in% 'Bacillariophyceae') to Phylum== 'Bacillariophyta'
change filter(Class %in% 'Bacillariophyceae') to Phylum== 'Bacillariophyta'