Add Another Plot to This One

phant1a <- read.csv(file="hip_stats1a.csv",header=TRUE,sep=",")
diameter1a <- ((phant1a[2:15, 10])*2)

# Plot
# Note: different symbol and different line type
points(c(1:14), diameter1a, type="b", pch=9, lty=2)

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

# plot labels
thigmophobe.labels(c(1:14), diameter1a, plotlabels, col="darkgreen", +font=2)
# continue adding as many plots as wanted
# note that one can minutely control every aspect of a plot  
# use 'help(par)' for all the gory details

Transcript

We can add another plot to this. So we can overlay multiple plots; in this case, we're going to add another plot, and we're going to put them in darkgreen.