CircE (version 1.1)

CircE.Plot: Circumplex Estimates Plot

Description

CircE.Plot produces the graphical representations of the estimated circular position of the variables and the Fourier correlation function. The function uses dev.new to create two different devices preserving an appropriate aspect ratio.

Usage

CircE.Plot(object, pchar = NULL, bg.points = "red", ef = 0.4, big.points = 10, 
	   big.labels = 10, bg.plot = "gray80", col.axis = "black", color = "black", 
	   col.text = "white",twodim=TRUE,bound=TRUE,labels=TRUE,reverse=FALSE)

Arguments

object

a circumplex model produced by CircE.BFGS.

pchar

plotting character, i.e., symbol to use. It can be either a single value or a vector of length equal to numbers of variables used in correlation matrix. For further details see ?par.

bg.points

background color for the symbols selected with pchar. Either a single value or a vector of color.

ef

"explosion factor". It specifies the distances at which the name of the variables are drawn around the circumference. Default to 0.4 (if negative labels are drawn inside the circumference).

big.points, big.labels

numerical values giving the amount by which plotting labels and symbols should be magnified relative to the default (cex = 1/(number of observed variables)).

bg.plot

background color of the plot region.

col.axis

the color to be used for axis annotation, axis line and labels.

color

the color to be used for plot lines and symbols foreground.

col.text

the color to be used for plot texts.

twodim

logical. If FALSE (default), two reference axes are drawn.

bound

logical. If arguments upper and lower in object are not NULL, the bound lines are drawn on the circumference. Default is TRUE.

labels

logical. If TRUE (default), variable labels are reported in the plot.

reverse

logical. If TRUE, plot the figure using the 360-angular positions (just reversing the circular order).

See Also

See Also plot, points, par.

Examples

#______ Vocational Interests Scale: Sample Correlation Matrix. N=175 _____
 
R.vocational=matrix(c(
1,0,0,0,0,0,0,
0.654,1,0,0,0,0,0,
0.453,0.644,1,0,0,0,0,
0.251,0.440,0.757,1,0,0,0,
0.122,0.158,0.551,0.493,1,0,0,
0.218,0.210,0.570,0.463,0.754,1,0,
0.496,0.264,0.366,0.202,0.471,0.650,1
),7,7,byrow=TRUE)
R=R.vocational+t(R.vocational)-diag(diag(R.vocational))

v.names=c("Health","Science","Technology","Trades","Business Operations",
          "Business Contact","Social")
dimnames(R)=list(v.names,v.names)

## Not run: 
# 
# model=CircE.BFGS(R,v.names,m=3,N=175,r=1)
# 
# CircE.Plot(object=model, pchar = 24, bg.points = "transparent", ef = -0.4, 
#            big.points = 15, big.labels=6, bg.plot = "white", col.axis = "black", 
#            color = "black", col.text = "black",
#            twodim=FALSE,bound=TRUE,labels=TRUE)
#          ## End(Not run)




#______________ Block's correlation matrix. N=48 ________

data(Block)
block.names=colnames(Block)

## Not run: 
# 
# Block.m.1<-CircE.BFGS(R=Block,v.names=block.names,m=1,N=48,start.values="PFA")
# 
# CircE.Plot(object=Block.m.1, pchar = 24, bg.points = "gray", ef = -0.4, 
#            big.points = 25, big.labels=15, bg.plot = "orange", col.axis = "blue", 
#            color = "black", col.text = "red",
#            twodim=FALSE,bound=TRUE,labels=TRUE)
# 
# 
# CircE.Plot(object=Block.m.1, pchar = 21, bg.points = "red", ef = -0.4, 
#            big.points = 25, big.labels=15, bg.plot = "white", col.axis = "black", 
#            color = "black", col.text = "white",
#            twodim=FALSE,bound=TRUE,labels=TRUE)
# 
# 
# CircE.Plot(object=Block.m.1, pchar = 21, bg.points = "red", ef = -0.2, 
#            big.points = 25, big.labels=15, bg.plot = "black", col.axis = "green", 
#            color = "white", col.text = "yellow",
#            twodim=FALSE,bound=TRUE,labels=TRUE)
# ## End(Not run)