Сортировка двух списков, игнорирующих любые нечисловые значения?

Question

Относительно новый для Mathematica, так что это может быть простой вопрос. С двух списков мне нужно сортировать как по одному из них, игнорируя при этом любые не числовые значения

Пример:

x={a, b, c, d, e, f, g}; 
y={-2, Indeterminate, -3, -Infinity, -1, Apples, 5}; 

(Также есть г = Перегородка [Riffle [х, у], 2], если это немного лучше работать с)

Результат ищет:

xn={g, e, a, c} 
yn={5, -1, -2, -3} 

(или эквивалент гп с помощью г)

Answer 1

Вот один из способов:

Transpose@Reverse@SortBy[Cases[Transpose[{y, x}], {_?NumericQ, _}], First] 

который возвращает

{{5, -1, -2, -3}, {г, е, а, с}}