Получение функции VertexRenderingFunction (не)

У меня возникли проблемы с пользовательским VertexRenderingFunction, показывающим в разных размерах для разных графиков. Ниже приведен пример, функция рендеринга вершин по умолчанию имеет желаемое поведение, так как вершины выглядят одинаково на всех графах, есть какие-нибудь предложения, как этого добиться с помощью пользовательских вершин?

_{(источник: yaroslavvb.com)}

edges = Most[
    ArrayRules[GraphData[{"Path", 5}, "AdjacencyMatrix"]]][[All, 1]];
doit[vrf_] := 
  Print /@ Table[
    GraphPlot[Rule @@@ edges[[k ;;]], VertexRenderingFunction -> vrf, 
     VertexLabeling -> True], {k, 1, Length[edges]}];
doit[({White, EdgeForm[Black], Disk[#, .1], Black, Text[#2, #1]} &)];
doit[Automatic];

Обновление через 1 час:

Майкл Пилат как обычно дает решение, вот как это выглядит с

(Inset[Graphics[{White, EdgeForm[Black], Disk[{0, 0}, .05], Black, 
     Text[#2, {0, 0}]}, ImageSize -> 25], #] &) 

для функции рендеринга

_{(источник: yaroslavvb.com)}