Add Labels to the Points

# load library to plot labels
library(plotrix)

# Get labels
plotlabels <- phant1$labelr[2:15]

# plot labels
thigmophobe.labels(c(1:14), diameter1,plotlabels,col="darkblue", font=2)

# label color is darkblue
# label font is bold

Transcript

So if you want to add labels to the point, we can load the library called "plotrix".  We can now get the labels now out of the data frame that we computed, put them into another data frame called "plotlabels". Now we can say, "Okay!  this thigmophobe.labels is the first fourteen from that, use the plot levels, use the color darkblue, and font number 2."  So the labels are going to appear in darkblue, it turns out that the label font is a bold font.