Plot Formatting

cup.measures <- function()
{
phant1 <- read.csv(file="hip_stats1.csv",header=TRUE,sep=",")
diameter1 <- ((phant1[2:15, 10])*2)

# Plot the numbers 1-14 (on x) against the diameter (on y)
# choose labels on the x and y axis
# choose  limits for the x and y axis
# choose a main and sub title
# choose a plotting type – lines “l”, symbols “p”, or both “b”
# choose a symbol type – a number indicates a built in symbol
# or one can indicate a symbol by pch=”sym”, e.g., pch=”ö”
# choose a line type – a number of line types are available by number
plot(c(1:14),diameter1,xlab="Individual Scans",ylab="Diameter in mm",
+ylim=c(54.18,  54.27), xlim=c(0,15),main="Acetabular Cup Diameter",
+sub="Experimental Data", type="b",pch=7, lty=1,axes=F)

Line continuation with “+” in the final two lines above.

Transcript

So in this particular case, we see another function that's been defined as called cup.measures. It's going to read in some data from a CSV file; it's going to store the data from that first data file, take a portion of it, and put it into this data frame.  Here is the information about the things that we would like to do.  And now here's our plot command.  So we plot the numbers 1 to 14; we use the data from this, which was 14 of our values. We say here's the X label we want to have, here's the Y label we want to have; we can space the Y labels out, we can set our limits, we can put a title on the whole table, we can put a subtitle on it, etc.  And the big advantage here, and I should note this plus means it's a continuation line, is that we can produce a beautiful looking plot with just what we want.