SeedRandom[314]; data = RandomInteger[{0, 10}, 10];

nnGraph = data //
  NearestNeighborGraph[#, 3,
    VertexLabels -> "Name",
    VertexSize -> 0.2,
    VertexShapeFunction -> "RoundedSquare"] &

nnGraph // CommunityGraphPlot

Let's define the function cleanText[]:

cleanText[text_String] := 
 StringReplace[
  text, {Whitespace ~~ "er" | "um" | "s-," ~~ Whitespace :> " ", 
   Whitespace ~~ "\n" :> " ", 
   Whitespace ~~ "[" ~~ ___ ~~ "]" ~~ Whitespace :> " "}]

and let's apply it on the audio transcription sample:

In[2]:= cleanText@"okay well er today we're er going to be carrying \
on with the er French \nRevolution you may have noticed i was sort of \
getting rather er enthusiastic \nand carried away at the end of the \
last one i was sort of almost er like i sort \nof started at the \
beginning about someone standing on a coffee table and s-, \nshouting \
to arms let's storm the Rootes Social Building [laughter] or er let's \
go \nout arm in arm singing the Marseillaise or something er like that"

Out[2]= "okay well today we're going to be carrying on with the \
French Revolution you may have noticed i was sort of getting rather \
enthusiastic and carried away at the end of the last one i was sort \
of almost like i sort of started at the beginning about someone \
standing on a coffee table and shouting to arms let's storm the \
Rootes Social Building or let's go out arm in arm singing the \
Marseillaise or something like that"

Here's another one:

Manipulate[Graphics[Line[AnglePath[{# \[Degree], s} & /@ Range[0, 180]]]], {s, 1, 50}]

Pretty neat - isn't it?

Using a control to specify the maximum step size.

Manipulate[
 Graphics@Line@
   AnglePath[{RandomInteger[{1, maxStep}], # \[Degree]} & /@ Range[0, 180]], 
 {maxStep, 1, 50, 1}]

Unfortunately, Graphics[] doesn't accept Quantity[1, "Millimeters"]:

Graphics@Line@
AnglePath[{RandomInteger@#, # \[Degree]} & /@ Range[0, 180]]