select variables with numbers in r