He gave me a results:

Then in this line of code: losing points (kmeans. Result $centers [c] (" Assault "and" Rape "), col=1:3, PCH=8, cex=2)
He gave me the results of the above that still looks like,
The end result should look like this:

Is there any bosses know what to do,