What about adist?
adist
> d <- adist(names(sample_df), "monday") > sample_df[,d == min(d)] mondaya mondayb 1 1 1 2 1 1 3 1 1