spread.labels {plotrix} | R Documentation |
Places labels for irregularly spaced values in a regular staggered order
spread.labels(x,y,labels=NULL,offset,bg="white",border=FALSE, between=FALSE,linecol=par("fg"),...)
x,y |
x and y data values |
labels |
text strings |
offset |
How far away from the data points to place the labels. Defaults to one quarter of the plot span. |
bg |
The color of the background rectangles on which to place the labels. |
border |
Whether to draw a border around the labels. |
between |
Whether to place the labels outside a single row of points or between two rows of points. |
linecol |
Optional colors for the lines drawn to the points. |
... |
additional arguments passed to boxed.labels . |
nil
This function is mainly useful when labeling irregularly spaced data points that are "spread out" along one dimension. It places the labels regularly spaced and staggered on the long dimension of the data, drawing lines from each label to the point it describes.
If between
is TRUE, the function expects two points for each label
and will attempt to place the labels between two vertical lines of points.
Lines will be drawn from the ends of each label to the two corresponding
points.
Jim Lemon
Cooke, L.J. & Wardle, J. (2005) Age and gender differences in children's food preferences. British Journal of Nutrition, 93: 741-746.
boxed.labels
x<-rnorm(10)/10 y<-sort(rnorm(10)) plot(x,y,xlim=c(-1,1),type="p") nums<-c("one","two","three","four","five","six","seven","eight","nine","ten") spread.labels(x,y,nums,0.5) # food preferences of children by sex (Cooke & Wardle, 2005) fpkids<-data.frame(Food=c("Fatty/sugary","Fruit","Starchy","Meat", "Proc.meat","Eggs","Fish","Dairy","Vegetables"), Female=c(4.21,4.22,3.98,3.57,3.55,3.46,3.34,3.26,3.13), Male=c(4.35,4.13,4.02,3.9,3.81,3.64,3.45,3.27,2.96)) plot(rep(1,9),fpkids$Female,xlim=c(0.8,2.2), ylim=range(c(fpkids$Female,fpkids$Male)),xlab="Sex",xaxt="n", ylab="Preference rating",main="Children's food preferences by sex", col="red") axis(1,at=1:2,labels=c("Female","Male")) points(rep(2,9),fpkids$Male,col="blue",pch=2) spread.labels(rep(1:2,each=9),c(fpkids$Female,fpkids$Male), fpkids$Food,between=TRUE,linecol=c("red","blue"))