Вы можете сделать:
sort(c(nums[nums %% 2 == 0], nums[3]))
#[1] 2 3 4 6 8 10 12 14 16 18 20
nums %% 2 == 0
используется для подмножества чисел, которые делятся на 2, и мы добавляем nums[3]
, чтобы получить 3-е число. Мы печатаем окончательный результат после сортировки.