История коммитов появляется только за один день

Вам просто нужно указать столбец Position как упорядоченный множитель , где уровни упорядочены по их числу:

theTable <- transform( theTable,
       Position = ordered(Position, levels = names( sort(-table(Position)))))

(Обратите внимание, что table(Position) создает частотный счетчик столбца Position.)

Тогда ваша функция ggplot покажет полосы в порядке убывания количества. Я не знаю, есть ли опция в geom_bar, чтобы сделать это без явного создания упорядоченного коэффициента.