In a similar fashion
> have[endsWith(names(have), '1')]
ID...1 Month...1
1 1 1
2 2 2
3 3 3
However, as I stated in a comment below the question, please provide more steps so we can tackle the (odd) names generating code. I think we should fight the cause and not cure the symptoms.