Your data seems to be unusable.
I think you should have a look at FAQ: How to do a minimal reproducible example ( reprex ) for beginners
or just give us the original raw data which I assume is the data.frame KF.
A handy way to supply sample data is to use the dput() function. See ?dput. Usually if you have a very large data set then something like head(dput(myfile), 100) will likely supply enough data for us to work with but I am not sure here.
I would not go that far but one we know what your data looks like I suspect one of the resident gurus can help you do things in a better and easier way.