Не совсем точно, что вы имеете в виду здесь, но есть две возможности, которые используют тот факт, что вы можете фильтровать список, поставляя вектор в одинарных скобках
Если вам нужны элементы списка, в которых есть цифры:
x[sapply(x, function(i){grepl("[0-9]", i)})]
Если вам нужны элементы списка, которые имеют имя, которое можно интерпретировать как число:
x[!is.na(as.numeric(names(x)))]