## These are based on the Professional Challenges example in ?likert
data(ProfChal)
levels(ProfChal$Subtable)[6] <- "Prof Recog" ## reduce length of label
## initial ordering of Question factor
PCC <- likert(Question ~ . | Subtable, ProfChal, ylab=NULL,
rightAxis=TRUE,
layout=c(1,6),
strip=FALSE,
strip.left=strip.custom(bg="gray97"),
par.strip.text=list(cex=.7),
scales=list(y=list(relation="free")),
main="Is your job professionally challenging?")
## initial ordering of Question factor
PCP <- likert(Question ~ . | Subtable, ProfChal, ylab=NULL,
as.percent=TRUE,
layout=c(1,6),
strip=FALSE,
strip.left=strip.custom(bg="gray97"),
par.strip.text=list(cex=.7),
scales=list(y=list(relation="free")),
main="Is your job professionally challenging?")
## Not run:
# ## default equal widths of the two panels
# as.TwoTrellisColumns5(PCP, PCC) ## 11in x 7in
#
# ## make left panel twice as wide as right panel
# as.TwoTrellisColumns5(PCP, PCC, pw=c(.3, .4, .01, .2, .09)) ## 11in x 7in
# ## -------------------- ## sum to 1.00
#
# ## make left panel twice as wide as right panel, and control position of main and legend
# as.TwoTrellisColumns5(PCP, PCC, ## 11in x 7in
# px=list(
# LL=c(.00, .30),
# LP=c(.30, .70),
# ML=c(.60, .61), ## arbitrary,
# ## visually center the labels and legend
# RP=c(.71, .91),
# RL=c(.91, 1.00)))
# ## End(Not run)
## Size that works in default 7x7 window. 7x7 is not recommended for
## this example because most of the space is used for labeling and not
## much for the panels containing the data. Use the px values for the
## 11x7 illustrated above in the dontrun section.
as.TwoTrellisColumns5(PCP, PCC, ## 7in x 7in
px=list(
LL=c(.00, .50),
LP=c(.50, .70),
ML=c(.50, .51), ## arbitrary,
## visually center the labels and legend
RP=c(.71, .87),
RL=c(.87, 1.00)))
## Ordering the rows by the lengths of the positive bars and also
## put percents and counts on the same plot.
## The easiest way is to use the LikertPercentCountColumns function:
LikertPercentCountColumns(Question ~ . | Subtable, ProfChal,
layout=c(1,6), scales=list(y=list(relation="free")),
ylab=NULL, between=list(y=0),
strip.left=strip.custom(bg="gray97"), strip=FALSE,
par.strip.text=list(cex=.7),
positive.order=TRUE,
main="Is your job professionally challenging?")
## Not run:
#
# ## Ordering the rows by the lengths of the positive bars and also
# ## putting percents and counts on the same plot requires coordination.
# ## The easiest way is to order the original tables of counts by the
# ## order of the percent plot.
#
# percentPlot <- likert(Question ~ . | Subtable, ProfChal,
# as.percent=TRUE,
# layout=c(1,6), scales=list(y=list(relation="free")),
# ylab=NULL, between=list(y=0),
# strip.left=strip.custom(bg="gray97"), strip=FALSE,
# par.strip.text=list(cex=.7),
# positive.order=TRUE,
# main="Is your job professionally challenging?")
# ## percentPlot
# pct.order <- percentPlot$y.limits[[1]]
#
# ProfChal2 <- ProfChal
# ProfChal2$Question <- factor(ProfChal2$Question, levels=rev(pct.order))
#
# countPlot <- likert(Question ~ . | Subtable, ProfChal2,
# layout=c(1,6),
# rightAxis=TRUE,
# scales=list(y=list(relation="free"),
# x=list(at=c(0, 250, 500))),
# ylab=NULL, between=list(y=0),
# strip.left=strip.custom(bg="gray97"), strip=FALSE,
# par.strip.text=list(cex=.7),
# main="Is your job professionally challenging?")
# ## countPlot
# levels(ProfChal$Subtable)[6] <-
# "Attitude\ntoward\nProfessional\nRecognition" ## Restore original label
#
# ## Size that works in default 7x7 window. 7x7 is not recommended for
# ## this example because most of the space is used for labeling and not
# ## much for the panels containing the data. Use the px values for the
# ## 11x7 illustrated above in the dontrun section.
#
# as.TwoTrellisColumns5(percentPlot, countPlot, ## 7in x 7in
# px=list(
# LL=c(.00, .50),
# LP=c(.50, .70),
# ML=c(.50, .51), ## arbitrary,
# ## visually center the labels and legend
# RP=c(.71, .87),
# RL=c(.87, 1.00)))
# ## End(Not run)
Run the code above in your browser using DataLab