Nice project, Zhamilya! The image obtained with the filter seems to have an optical aberration on the borders. Cropping the borders of the image with ImageCrop will get you better result:
Colorize[ImageApply[f, ColorSeparate[imgCropped, {"R", "B"}]],
ColorFunction -> "ThermometerColors"]

Another observation is that your grass image contains several types of plants that could alter your results. You could try to highlight these plant species directly using your raw image (without red filter). For example you can experiment a bit with ClusteringComponents, MorphologicalComponents, ref/WatershedComponents, DominantColors functions:
Colorize[ClusteringComponents[img, 4] , ColorFunction -> "Rainbow"]

By the way, some time ago @Arnoud Buzing analysed crops by drone too. You can check his cool post here: https://community.wolfram.com/groups/-/m/t/551187
Keep us updated on the progress of your exciting project :)